diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index f3acbc52..cb3ca9de 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -1686,7 +1686,7 @@ (sys:vm-execute-toplevel vm-desc) (when (or (neq pa *package-alist*)) (set fence t)))) - (when *emit* + (when (and *emit* (consp form)) out.(add flat-vd) (when fence out.(add :fence)))))))))) |