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

(limited to 'csc/macros.csc')

diff --git a/csc/macros.csc b/csc/macros.csc
index 0b59b84..2c9c755 100644
--- a/csc/macros.csc
+++ b/csc/macros.csc
@@ -40,11 +40,9 @@
             make-library-define
             make-library-ref
             make-sequence
-            make-void
             sequence-head
             sequence-tail
-            sequence?
-            void?)
+            sequence?)
           (only (csc list)
             revappend
             unzip)
@@ -656,7 +654,7 @@
 
     (define (expand-lambda-body-rest body)
       (let loop ((body body)
-                 (expanded-body (make-void)))
+                 (expanded-body (make-constant #f)))
         (syntax-case body
           ('()
             expanded-body)
@@ -677,8 +675,8 @@
         (syntax-case body
           ('()
             (if (null? names)
-              (make-void)
-              (make-letrec #t names gensyms expressions (make-void))))
+              (make-constant #f)
+              (make-letrec #t (reverse names) (reverse gensyms) (reverse expressions) (make-constant #f))))
           ((expr . expr*)
             (define expanded-expr (expand-syntax-object expr))
             (cond
@@ -697,7 +695,7 @@
               (else
                 (if (null? names)
                   (expand-lambda-body-rest body)
-                  (make-letrec #t names gensyms expressions (expand-lambda-body-rest body)))))))))
+                  (make-letrec #t (reverse names) (reverse gensyms) (reverse expressions) (expand-lambda-body-rest body)))))))))
 
 
     (define (case-lambda-helper form)
-- 
cgit v1.3.1