From b64e6bc1e540b5f580c888ea1b6aeaccaf9d6b61 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 3 May 2020 08:54:14 -0700 Subject: 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. --- share/txr/stdlib/compiler.tl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'share') 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 -- cgit v1.2.3