suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

hmm.. the typechecker at this point looks like it's going crazy

Browse Source
This commit is contained in:
Danny Yoo 2011-04-17 14:54:01 -04:00
parent 3c08b75f44
commit 33294d0c36
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
assemble.rkt
View File

@ -233,6 +233,10 @@ EOF
[(InstallContinuationMarkEntry!? op) [(InstallContinuationMarkEntry!? op)
empty] empty]
[(RaiseContextExpectedValuesError!? op) [(RaiseContextExpectedValuesError!? op)
empty]
[(RaiseArityMismatchError!? op)
empty]
[(RaiseOperatorApplicationError!? op)
empty])) empty]))
(unique/eq? (unique/eq?

10
simulator.rkt
View File

@ -388,7 +388,15 @@
(error "context expected ~a values, received ~a values." (error "context expected ~a values, received ~a values."
(RaiseContextExpectedValuesError!-expected op) (RaiseContextExpectedValuesError!-expected op)
(machine-argcount m))] (machine-argcount m))]
)))
[(RaiseArityMismatchError!? op)
(error "expects ~s arguments, given ~a"
(RaiseArityMismatchError!-expected op)
(evaluate-oparg m (RaiseArityMismatchError!-received op)))]
[(RaiseOperatorApplicationError!? op)
(error "expected procedure, given ~a"
(evaluate-oparg m (RaiseOperatorApplicationError!-operator op)))])))