From 280e73c1b0293e8352ca79d1d323f87cad406a03 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 1 Nov 2021 23:36:51 -0700
Subject: compiler: compile-toplevel: bind *load-time* to t.

* stdlib/compiler.tl (compile-toplevel): Recently, I removed
the binding of *load-time* to t from this function. That is
not quite right; we want to positively bind it to nil. A new
top-level compile starts out in non-load-time. Suppose that
some compile-time evaluation recurses into the compiler.
---
 stdlib/compiler.tl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl
index 0d8e1de2..c27cc040 100644
--- a/stdlib/compiler.tl
+++ b/stdlib/compiler.tl
@@ -2105,6 +2105,7 @@
   (let ((co (new compiler))
         (as (new assembler))
         (*dedup* (or *dedup* (hash)))
+        (*load-time* nil)
         (*opt-level* (or *opt-level* 0)))
     (let* ((oreg co.(alloc-treg))
            (xexp (if expanded-p
-- 
cgit v1.2.3