From ac23fca796d6dc6fc7aab0ac5bdf8987aa490761 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Sun, 24 Jul 2022 20:29:19 -0700
Subject: Write a test for codegen.

I'm not sure yet how to test regalloc.
---
 csc/macros-test.csc | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'csc/macros-test.csc')

diff --git a/csc/macros-test.csc b/csc/macros-test.csc
index d1b8d2c..b2e2f3f 100644
--- a/csc/macros-test.csc
+++ b/csc/macros-test.csc
@@ -15,7 +15,6 @@
           %library-ref
           %sequence
           call?
-          constant-expression
           constant?
           define-syntax?
           if?
@@ -249,7 +248,7 @@
 (test builtin-case-lambda-defines
   (assert-equal
     (make-lambda (list (test-ref 'x)) #f
-      (make-letrec #t '(a b) #f
+      (make-letrec #t '(a b) (list (gensym) (gensym))
         (list (make-constant 6)
               (test-ref 'a))
         (make-sequence (make-constant #f) (make-constant 7))))
-- 
cgit v1.3.1