From faa2840941d2e413059d09c65a404d1fe50fe21f Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 24 Nov 2016 06:31:03 -0800 Subject: bugfix: broken test-inc macro. * share/txr/stdlib/place.tl (test-inc): Expander refers to unbound variable. --- share/txr/stdlib/place.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'share') diff --git a/share/txr/stdlib/place.tl b/share/txr/stdlib/place.tl index 48e4843c..20650ad0 100644 --- a/share/txr/stdlib/place.tl +++ b/share/txr/stdlib/place.tl @@ -363,7 +363,7 @@ t))) (defmacro test-inc (place : (delta 1) (upfrom-val 0)) - ^(eql (pinc ,place ,delta) ,above-val)) + ^(eql (pinc ,place ,delta) ,upfrom-val)) (defmacro test-dec (place : (delta 1) (downto-val 0)) ^(eql (dec ,place ,delta) ,downto-val)) -- cgit v1.2.3