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-test.csc | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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

diff --git a/lib/csc/cps-test.csc b/lib/csc/cps-test.csc
index 7aab023..ab92646 100644
--- a/lib/csc/cps-test.csc
+++ b/lib/csc/cps-test.csc
@@ -206,7 +206,7 @@
           (list (make-closure (test-ref 'generated-symbol)
                                       (list (test-ref 'generated-symbol) (test-ref 'generated-symbol))
                   (make-primitive 'peek (list (test-ref 'generated-symbol) (make-constant 1)) (list (test-ref 'generated-symbol))
-                    (make-primitive 'int<? (list (test-ref 'generated-symbol) (make-constant 0)) (list (test-ref 'generated-symbol))
+                    (make-primitive 'lt (list (test-ref 'generated-symbol) (make-constant 0)) (list (test-ref 'generated-symbol))
                       (make-fix (list (make-closure (test-ref 'generated-symbol)
                                                     (list (test-ref 'generated-symbol))
                                         (make-apply (test-ref 'generated-symbol) (list (test-ref 'generated-symbol)))))
@@ -256,7 +256,7 @@
           (list
             (make-closure (test-ref 'f) (list (test-ref 'generated-symbol) (test-ref 'generated-symbol))
               (make-primitive 'peek (list (test-ref 'generated-symbol) (make-constant 1)) (list (test-ref 'generated-symbol))
-                (make-primitive 'eq? (list (test-ref 'generated-symbol) (make-constant 1)) (list (test-ref 'generated-symbol))
+                (make-primitive 'eq (list (test-ref 'generated-symbol) (make-constant 1)) (list (test-ref 'generated-symbol))
                   (make-fix
                     (list (make-closure (test-ref 'generated-symbol) (list (test-ref 'generated-symbol))
                             (make-apply (test-ref 'generated-symbol) (list (test-ref 'generated-symbol)))))
@@ -322,7 +322,7 @@
         (make-fix
           (list (make-closure (test-ref 'f) (list (test-ref 'generated-symbol) (test-ref 'generated-symbol))
                   (make-primitive 'peek (list (test-ref 'generated-symbol) (make-constant 1)) (list (test-ref 'generated-symbol))
-                    (make-primitive 'eq? (list (test-ref 'generated-symbol) (make-constant 0)) (list (test-ref 'generated-symbol))
+                    (make-primitive 'eq (list (test-ref 'generated-symbol) (make-constant 0)) (list (test-ref 'generated-symbol))
                       (make-fix
                         (list (make-closure (test-ref 'generated-symbol) (list (test-ref 'generated-symbol))
                                 (make-apply (test-ref 'generated-symbol) (list (test-ref 'generated-symbol)))))
@@ -357,7 +357,7 @@
             (list
               (make-closure (test-ref 'f) (list (test-ref 'generated-symbol) (test-ref 'generated-symbol))
                 (make-primitive 'peek (list (test-ref 'generated-symbol) (make-constant 1)) (list (test-ref 'generated-symbol))
-                  (make-primitive 'eq? (list (test-ref 'generated-symbol) (make-constant 0)) (list (test-ref 'generated-symbol))
+                  (make-primitive 'eq (list (test-ref 'generated-symbol) (make-constant 0)) (list (test-ref 'generated-symbol))
                     (make-fix
                       (list (make-closure (test-ref 'generated-symbol) (list (test-ref 'generated-symbol))
                               (make-apply (test-ref 'generated-symbol) (list (test-ref 'generated-symbol)))))
@@ -404,7 +404,7 @@
             (make-closure (test-ref 'f) (list (test-ref 'generated-symbol)
                                               (test-ref 'generated-symbol))
               (make-primitive 'peek (list (test-ref 'generated-symbol) (make-constant 1)) (list (test-ref 'generated-symbol))
-                (make-primitive 'eq? (list (test-ref 'generated-symbol) (make-constant 1)) (list (test-ref 'generated-symbol))
+                (make-primitive 'eq (list (test-ref 'generated-symbol) (make-constant 1)) (list (test-ref 'generated-symbol))
                   (make-fix
                     (list (make-closure (test-ref 'generated-symbol) (list (test-ref 'generated-symbol))
                             (make-apply (test-ref 'generated-symbol) (list (test-ref 'generated-symbol)))))
@@ -443,7 +443,7 @@
           (make-fix
             (list (make-closure (test-ref 'generated-symbol) (list (test-ref 'generated-symbol) (test-ref 'generated-symbol))
                     (make-primitive 'peek (list (test-ref 'generated-symbol) (make-constant 1)) (list (test-ref 'generated-symbol))
-                      (make-primitive 'eq? (list (test-ref 'generated-symbol) (make-constant 0)) (list (test-ref 'generated-symbol))
+                      (make-primitive 'eq (list (test-ref 'generated-symbol) (make-constant 0)) (list (test-ref 'generated-symbol))
                         (make-fix
                           (list (make-closure (test-ref 'generated-symbol) (list (test-ref 'generated-symbol))
                                   (make-apply (test-ref 'generated-symbol) (list (test-ref 'generated-symbol)))))
-- 
cgit v1.3.1