diff options
| author | Rose Hogenson <rhogenson@posteo.net> | 2022-08-07 19:42:35 -0700 |
|---|---|---|
| committer | Rose Hogenson <rhogenson@posteo.net> | 2022-08-07 19:42:35 -0700 |
| commit | b81426bb210ea5fca6d841e4dfeb38d83e1a6554 (patch) | |
| tree | c8f0f5c164dbf7d54eeb05246f23de38258d2382 /lib/csc/cps.csc | |
| parent | 1f0227d03d7b15759b74544d2b210edd20be7da0 (diff) | |
| download | chromatopelma-b81426bb210ea5fca6d841e4dfeb38d83e1a6554.tar.zst | |
Misc test fixup in the compiler.
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) |