scm: Fix bug in assq-set!

* module/mes/scm.mes (assq-set!): Bugfix.
2017-04-01 07:23:10 +02:00 · 2017-04-01 07:23:10 +02:00 · a8587b6453
parent 4d933001d5
commit a8587b6453
1 changed files with 3 additions and 3 deletions
--- a/module/mes/scm.mes
+++ b/module/mes/scm.mes
@ -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)))