read: hash constants and directives

1 files changed, 1 insertions, 1 deletions

diff --git a/set.scm b/set.scm
index 52d10b6..f096121 100644
--- a/set.scm
+++ b/set.scm
@@ -463,7 +463,7 @@
 (define smap:insert-many
   (lambda (smap . pairs)
     (fold (lambda (pair smap)
-            (smap:insert smap (car pair) (cdr pair)))
+            (car (smap:insert smap (car pair) (cdr pair))))
           smap
           pairs)))