scm: Fix bug in assq-set!
[mes.git] / module / mes / scm.mes
index a171da4ebdf449031ffa03c5c3618eea7c74eb86..040194995b59a8417351d124389d1a2fc16012c2 100644 (file)
@@ -98,9 +98,9 @@
 
 (define (assq-set! alist key val)
   (let ((entry (assq key alist)))
-    (cond (entry (set-cdr! entry val)
-                 alist)
-          (#t (cons (cons key val) alist)))))
+    (if (not entry) (acons key val alist)
+        (let ((entry (set-cdr! entry val)))
+          alist))))
 
 (define (assq-ref alist key)
   (let ((entry (assq key alist)))