Fix a bug in expand-body for an empty body.

1 files changed, 2 insertions, 1 deletions

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