scm: Fix bug in assq-set!
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 1 Apr 2017 05:23:10 +0000 (07:23 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 1 Apr 2017 05:23:10 +0000 (07:23 +0200)
* module/mes/scm.mes (assq-set!): Bugfix.

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