From dfed0dd11c8a7efb222424002613eb168e02136e Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Fri, 22 Apr 2022 19:12:21 -0700
Subject: Remove the void type.

Why have void? We will just use #f.
---
 csc/macros-test.csc | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/csc/macros-test.csc b/csc/macros-test.csc
index 6211131..92fda88 100644
--- a/csc/macros-test.csc
+++ b/csc/macros-test.csc
@@ -9,11 +9,11 @@
           lexical-set-name
           lexical-set?
           make-constant
-          make-lexical-ref
           make-lambda-case
           make-letrec
+          make-lexical-ref
           make-library-ref
-          void?)
+          make-sequence)
         (only (csc testing)
           assert-equal
           test)
@@ -180,8 +180,8 @@
 
 (test builtin-case-lambda-cases
   (assert-equal ir1=?
-    (make-lambda-case '(x y z) #f #f (make-sequence (make-void) (make-constant 5))
-      (make-lambda-case '(a b c) 'd #f (make-sequence (make-void) (make-constant 6)) '()))
+    (make-lambda-case '(x y z) #f #f (make-sequence (make-constant #f) (make-constant 5))
+      (make-lambda-case '(a b c) 'd #f (make-sequence (make-constant #f) (make-constant 6)) '()))
     (expand
       '(case-lambda
          ((x y z) (quote 5))
@@ -195,7 +195,7 @@
       (make-letrec #t '(a b) #f
         (list (make-constant 6)
               (make-lexical-ref 'a #f))
-        (make-sequence (make-void) (make-constant 7))))
+        (make-sequence (make-constant #f) (make-constant 7))) '())
     (expand
       '(case-lambda
          ((x)
-- 
cgit v1.3.1