IsaacShoebottom/CS4613
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

wip 2

Browse Source
This commit is contained in:
Isaac Shoebottom 2025-04-10 05:13:46 -03:00
parent 647ea45733
commit b13264feed
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
Assignments/04.rkt
View File

@ -130,20 +130,20 @@
[(objE fields) (let* ([extract-exp (lambda (obj) (pair (fst obj) (typecheck (snd obj) env)))] [(objE fields) (let* ([extract-exp (lambda (obj) (pair (fst obj) (typecheck (snd obj) env)))]
[field-list (map extract-exp fields)]) [field-list (map extract-exp fields)])
(objT (make-hash field-list)))] (objT (make-hash field-list)))]
[(msgE obj selector) (type-case Exp obj [(msgE obj selector)
[(objE fields) (type-case (Optionof Exp) (hash-ref (make-hash fields) selector) (type-case Exp obj
[(none) (error 'typecheck "unknown field")] [(objE fields)
[(some v) (typecheck v env)])] (type-case (Optionof Exp) (hash-ref (make-hash fields) selector)
[(varE name) (type-case Type (type-lookup name env) [(none) (error 'typecheck "unknown field")]
[(objT fields) (type-case (Optionof Type) (hash-ref fields selector) [(some v) (typecheck v env)])]
[(none) (error 'typecheck "dasdas")] [(varE name)
[(some v) (type-case Type v (type-case Type (type-lookup name env)
[(arrowT a b) b] [(objT fields)
[else (error 'dasdas "dasdas")])])] (type-case (Optionof Type) (hash-ref fields selector)
[else (error 'typecheck "bound variable is not an object")])] [(none) (error 'typecheck "unknown field")]
[(some v) v])]
[else (error 'typecheck "passing message to non-object")])] [else (error 'typecheck "bound variable is not an object")])]
))) [else (error 'typecheck "passing message to non-object")])])))
(define (parse-error sx) (define (parse-error sx)
(error 'parse (string-append "parse error: " (to-string sx)))) (error 'parse (string-append "parse error: " (to-string sx))))