diff options
| -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)))) |