diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 573d4e37..0a473a74 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -568,7 +568,8 @@ (tree-case form ((prog1 fi . re) (let* ((igreg me.(alloc-treg)) (fi-frag me.(compile oreg env fi)) - (re-frag me.(comp-progn igreg env re))) + (re-frag me.(comp-progn igreg env + (append re '(nil))))) me.(free-treg igreg) (new (frag fi-frag.oreg (append fi-frag.code re-frag.code) |