From b81426bb210ea5fca6d841e4dfeb38d83e1a6554 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Sun, 7 Aug 2022 19:42:35 -0700
Subject: Misc test fixup in the compiler.

---
 lib/csc/cps.csc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/csc/cps.csc')

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)
-- 
cgit v1.3.1