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

finally.

Browse Source
This commit is contained in:
Isaac Shoebottom 2025-04-10 08:33:48 -03:00
parent 579b9689d3
commit b1cc807d45
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Assignments/04.rkt
View File

@ -130,7 +130,7 @@
(type-case Type (typecheck fn env) (type-case Type (typecheck fn env)
[(arrowT arg-type result-type) [(arrowT arg-type result-type)
(let ([actual-type (typecheck arg env)]) (let ([actual-type (typecheck arg env)])
(if (equal? arg-type actual-type) (if (subtype? actual-type arg-type) ;; Use subtype? to check compatibility
result-type result-type
(error 'typecheck "argument type")))] (error 'typecheck "argument type")))]
[else (error 'typecheck "not function")])] [else (error 'typecheck "not function")])]