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 | 280e73c1b0293e8352ca79d1d323f87cad406a03 (patch) | |
| tree | 744bd1edfcba8c48aab6ec0bc4cd0c0824f9fb40 /stdlib/compiler.tl | |
| parent | 77541ce87aa9bf6ce577a265f3e86539559f1eef (diff) | |
| download | txr-280e73c1b0293e8352ca79d1d323f87cad406a03.tar.gz txr-280e73c1b0293e8352ca79d1d323f87cad406a03.tar.bz2 txr-280e73c1b0293e8352ca79d1d323f87cad406a03.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/compiler.tl')
| -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 |