diff options
| -rw-r--r-- | lib/csc/macros.csc | 3 |
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 |