diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-04-04 23:29:08 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-04-04 23:29:08 -0700 |
| commit | b4a10f1775d4e2d6ec77fd42f008cdcf638861f7 (patch) | |
| tree | f6f5b849b8d8b32adc31e1ae1c31bcdafabca694 | |
| parent | 2a97c855efa10947a59ffce5d971f41af0585ce4 (diff) | |
| download | txr-b4a10f1775d4e2d6ec77fd42f008cdcf638861f7.tar.gz txr-b4a10f1775d4e2d6ec77fd42f008cdcf638861f7.tar.bz2 txr-b4a10f1775d4e2d6ec77fd42f008cdcf638861f7.zip | |
hash: with-hash-iter bug found by new compiler.
The compiler barfed on hash.tl, reporting an if form with too
many arguments in the with-hash-iter macro, indicating that
it's basically broken.
* share/txr/stdlib/hash.tl (with-hash-iter): Repair the macro.
| -rw-r--r-- | share/txr/stdlib/hash.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/hash.tl b/share/txr/stdlib/hash.tl index 2b382683..fe71e194 100644 --- a/share/txr/stdlib/hash.tl +++ b/share/txr/stdlib/hash.tl @@ -37,6 +37,6 @@ ^(hash-next ,iter) ^(let ((,next (hash-next ,iter))) ,*(if key ^((set ,key (car ,next)))) - ,*(if val ^((set ,val (cdr ,next))))) - ,next))) + ,*(if val ^((set ,val (cdr ,next)))) + ,next)))) ,*body)))) |