scm: Fix bug in assq-set!
* module/mes/scm.mes (assq-set!): Bugfix.
This commit is contained in:
parent
4d933001d5
commit
a8587b6453
|
@ -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)))
|
||||
|
|
Loading…
Reference in a new issue