diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2020-05-03 08:54:14 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2020-05-03 08:54:14 -0700 |
| commit | b64e6bc1e540b5f580c888ea1b6aeaccaf9d6b61 (patch) | |
| tree | 68699db03000a1f043fde0afdc970aef266eedf4 /share | |
| parent | 983d325544b6c587beea0206ac46d6d12dcdb1ff (diff) | |
| download | txr-b64e6bc1e540b5f580c888ea1b6aeaccaf9d6b61.tar.gz txr-b64e6bc1e540b5f580c888ea1b6aeaccaf9d6b61.tar.bz2 txr-b64e6bc1e540b5f580c888ea1b6aeaccaf9d6b61.zip | |
compiler: top-level is in load-time.
* share/txr/stdlib/compiler.tl (compile-toplevel): Bind
*load-time* to t, because of course initially we are in the
top level, where load-time can be eliminated.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 9b0c0334..88792259 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -1614,7 +1614,8 @@ (let ((co (new compiler)) (as (new assembler)) (*dedup* (or *dedup* (hash)))) - (let* ((oreg co.(alloc-treg)) + (let* ((*load-time* t) + (oreg co.(alloc-treg)) (xexp (if expanded-p exp (unwind-protect |