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 127d68af..990395cb 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -1383,7 +1383,7 @@ (let ((op (eval (car args)))) (or [%const-foldable% op] (not (bindable op))))) - me.(compile oreg env (eval form))) + me.(compile oreg env ^(quote ,(eval form)))) (t (tree-case (car args) ((op arg . more) (caseq op |