hmm.. the typechecker at this point looks like it's going crazy
This commit is contained in:
parent
3c08b75f44
commit
33294d0c36
|
@ -233,6 +233,10 @@ EOF
|
|||
[(InstallContinuationMarkEntry!? op)
|
||||
empty]
|
||||
[(RaiseContextExpectedValuesError!? op)
|
||||
empty]
|
||||
[(RaiseArityMismatchError!? op)
|
||||
empty]
|
||||
[(RaiseOperatorApplicationError!? op)
|
||||
empty]))
|
||||
|
||||
(unique/eq?
|
||||
|
|
|
@ -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)))])))
|
||||
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user