Fix functional updates.

This commit is contained in:
Dominik Pantůček 2023-07-07 10:48:32 +02:00
parent 3f6c5cc36a
commit f3bcfcaa6a
2 changed files with 9 additions and 3 deletions

View file

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