diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-12-20 06:22:02 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-12-20 06:22:02 -0800 |
| commit | 6c06486f4ce125a424e64dd9b91a62a6328268df (patch) | |
| tree | 37509f32ae0f68ad324e3adc45462c8ce9e18837 | |
| parent | 355a50e3dcf2ec438398a392ec5ec39e4ac38d6d (diff) | |
| download | txr-6c06486f4ce125a424e64dd9b91a62a6328268df.tar.gz txr-6c06486f4ce125a424e64dd9b91a62a6328268df.tar.bz2 txr-6c06486f4ce125a424e64dd9b91a62a6328268df.zip | |
compiler: don't retain last form if it's an atom.
* stdlib/compiler.tl (compiler compile): Don't store form
into me.last-form if it's an atom; it won't be useful
or error reporting.
| -rw-r--r-- | stdlib/compiler.tl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index ce28e012..08e1e16e 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -474,7 +474,8 @@ (error "access spy stack balance problem in compiler")))) (defmeth compiler compile (me oreg env form) - (set me.last-form form) + (unless (atom form) + (set me.last-form form)) (cond ((symbolp form) (if (bindable form) |