Fix functional updates.
This commit is contained in:
parent
3f6c5cc36a
commit
f3bcfcaa6a
2 changed files with 9 additions and 3 deletions
|
|
@ -116,7 +116,7 @@
|
|||
(lambda (acc id mr)
|
||||
(cons (cons id mr) acc))
|
||||
mb1)))
|
||||
(list->bdict (sort mb (lambda (a b) (< (car a) (car b))))))))))))
|
||||
(list->bdict mb))))))))
|
||||
|
||||
;; Predicate
|
||||
(define (mbase? v)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue