diff options
Diffstat (limited to 'lib/csc/cps.csc')
| -rw-r--r-- | lib/csc/cps.csc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/csc/cps.csc b/lib/csc/cps.csc index 65bca89..ca6dbf4 100644 --- a/lib/csc/cps.csc +++ b/lib/csc/cps.csc @@ -131,7 +131,7 @@ (define argvec (new-ref)) (define nargs (length args)) (make-lambda (list argvec) #f - (make-if (make-call-builtin 'int<? (list (make-call-builtin 'peek (list argvec (make-constant 1))) + (make-if (make-call-builtin 'lt (list (make-call-builtin 'peek (list argvec (make-constant 1))) (make-constant nargs))) (make-call (make-library-ref 'wrong-number-of-arguments '(csc based)) (list argvec)) (loop for arg in (reverse args) @@ -151,7 +151,7 @@ (define argvec (new-ref)) (define nargs (length args)) (make-lambda (list argvec) #f - (make-if (make-call-builtin 'eq? (list (make-call-builtin 'peek (list argvec (make-constant 1))) + (make-if (make-call-builtin 'eq (list (make-call-builtin 'peek (list argvec (make-constant 1))) (make-constant nargs))) (loop for arg in (reverse args) for i downfrom (+ 1 nargs) |