From 72294a6a1a690d396d13a7e3861f4b720e78cdb3 Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Sun, 7 Aug 2022 15:54:48 -0700 Subject: Fix a bug in expand-body for an empty body. --- lib/csc/macros.csc | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lib/csc') diff --git a/lib/csc/macros.csc b/lib/csc/macros.csc index fc72f74..4463f91 100644 --- a/lib/csc/macros.csc +++ b/lib/csc/macros.csc @@ -839,7 +839,8 @@ (define environment (make-environment ident-map name)) (loop for expr in body for expanded-expr = (expand expr environment) - for res = expanded-expr then (make-sequence res expanded-expr) + with res = (make-constant #f) + do (set! res (make-sequence res expanded-expr)) finally (return res) if (define-syntax? expanded-expr) do (set! environment -- cgit v1.3.1