artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

scm: Fix bug in assq-set!

Browse source 
* module/mes/scm.mes (assq-set!): Bugfix.
This commit is contained in:
Jan Nieuwenhuizen 2017-04-01 07:23:10 +02:00
parent 4d933001d5
commit a8587b6453
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
module/mes/scm.mes
View file

@ -98,9 +98,9 @@
(define (assq-set! alist key val) (define (assq-set! alist key val)
(let ((entry (assq key alist))) (let ((entry (assq key alist)))
(cond (entry (set-cdr! entry val) (if (not entry) (acons key val alist)
alist) (let ((entry (set-cdr! entry val)))
(#t (cons (cons key val) alist))))) alist))))
(define (assq-ref alist key) (define (assq-ref alist key)
(let ((entry (assq key alist))) (let ((entry (assq key alist)))