summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--share/txr/stdlib/compiler.tl2
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl
index f7f23039..d9c89bea 100644
--- a/share/txr/stdlib/compiler.tl
+++ b/share/txr/stdlib/compiler.tl
@@ -79,7 +79,7 @@
(:method extend-fun (me sym)
(when (assoc sym me.fb)
(compile-error me.co.last-form "duplicate function ~s" sym))
- (let* ((loc ^(v ,me.lev ,(pinc me.v-cntr)))
+ (let* ((loc ^(v ,(ppred me.lev) ,(pinc me.v-cntr)))
(bn (new binding sym sym loc loc env me)))
(set me.fb (acons sym bn me.fb))))