From b4a10f1775d4e2d6ec77fd42f008cdcf638861f7 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 4 Apr 2018 23:29:08 -0700 Subject: 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. --- share/txr/stdlib/hash.tl | 4 ++-- 1 file 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)))) -- cgit v1.2.3