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

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

View File

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

View File

@ -388,7 +388,15 @@
(error "context expected ~a values, received ~a values."
(RaiseContextExpectedValuesError!-expected op)
(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)))])))