diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-11-24 06:31:03 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-11-24 06:31:03 -0800 |
| commit | ffcae8a1f6e825b5a6982ef9edb6c2880b665d6e (patch) | |
| tree | e22b0749c985aceb84d47a9aa22991a98fe74759 | |
| parent | fe2e6650239b4f217c464f69292605d57e7490c1 (diff) | |
| download | txr-ffcae8a1f6e825b5a6982ef9edb6c2880b665d6e.tar.gz txr-ffcae8a1f6e825b5a6982ef9edb6c2880b665d6e.tar.bz2 txr-ffcae8a1f6e825b5a6982ef9edb6c2880b665d6e.zip | |
bugfix: broken test-inc macro.
* share/txr/stdlib/place.tl (test-inc): Expander
refers to unbound variable.
| -rw-r--r-- | share/txr/stdlib/place.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |