diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-11-01 23:36:51 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-11-01 23:36:51 -0700 |
| commit | 1bf0ffecaf481e70dad272d28ae3a59e063b0fec (patch) | |
| tree | 744bd1edfcba8c48aab6ec0bc4cd0c0824f9fb40 /stdlib | |
| parent | 0f482cf241584b58b7a9a8e97b32b7123b1cbe25 (diff) | |
| download | txr-1bf0ffecaf481e70dad272d28ae3a59e063b0fec.tar.gz txr-1bf0ffecaf481e70dad272d28ae3a59e063b0fec.tar.bz2 txr-1bf0ffecaf481e70dad272d28ae3a59e063b0fec.zip | |
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.
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/compiler.tl | 1 |
1 files changed, 1 insertions, 0 deletions
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 |