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)))]
[field-list (map extract-exp fields)])
(objT (make-hash field-list)))]
[(msgE obj selector) (type-case Exp obj
[(objE fields) (type-case (Optionof Exp) (hash-ref (make-hash fields) selector)
[(none) (error 'typecheck "unknown field")]
[(some v) (typecheck v env)])]
[(varE name) (type-case Type (type-lookup name env)
[(objT fields) (type-case (Optionof Type) (hash-ref fields selector)
[(none) (error 'typecheck "dasdas")]
[(some v) (type-case Type v
[(arrowT a b) b]
[else (error 'dasdas "dasdas")])])]
[else (error 'typecheck "bound variable is not an object")])]
[else (error 'typecheck "passing message to non-object")])]
)))
[(msgE obj selector)
(type-case Exp obj
[(objE fields)
(type-case (Optionof Exp) (hash-ref (make-hash fields) selector)
[(none) (error 'typecheck "unknown field")]
[(some v) (typecheck v env)])]
[(varE name)
(type-case Type (type-lookup name env)
[(objT fields)
(type-case (Optionof Type) (hash-ref fields selector)
[(none) (error 'typecheck "unknown field")]
[(some v) v])]
[else (error 'typecheck "bound variable is not an object")])]
[else (error 'typecheck "passing message to non-object")])])))
(define (parse-error sx)
(error 'parse (string-append "parse error: " (to-string sx))))