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 | b811679fd881573b13d0a957f9f78889d5a9d69a (patch) | |
| tree | 37509f32ae0f68ad324e3adc45462c8ce9e18837 | |
| parent | daf60d254b0f47fcdd2dec4046a4e97476da9eee (diff) | |
| download | txr-b811679fd881573b13d0a957f9f78889d5a9d69a.tar.gz txr-b811679fd881573b13d0a957f9f78889d5a9d69a.tar.bz2 txr-b811679fd881573b13d0a957f9f78889d5a9d69a.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) |