From b811679fd881573b13d0a957f9f78889d5a9d69a Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 20 Dec 2023 06:22:02 -0800
Subject: 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.
---
 stdlib/compiler.tl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'stdlib/compiler.tl')

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)
-- 
cgit v1.2.3