Permalink
Browse files

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

  • Loading branch information...
1 parent 3c08b75 commit 33294d0c368e064bbca2730029446bc21af419f2 Danny Yoo committed Apr 17, 2011
Showing with 13 additions and 1 deletion.
  1. +4 −0 assemble.rkt
  2. +9 −1 simulator.rkt
View
@@ -233,6 +233,10 @@ EOF
[(InstallContinuationMarkEntry!? op)
empty]
[(RaiseContextExpectedValuesError!? op)
+ empty]
+ [(RaiseArityMismatchError!? op)
+ empty]
+ [(RaiseOperatorApplicationError!? op)
empty]))
(unique/eq?
View
@@ -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)))])))

0 comments on commit 33294d0

Please sign in to comment.