brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove unused functional update procedure.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-09 20:07:45 +02:00
parent 6a35b94f34
commit a9921675ba
1 changed files with 0 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/util-dict.scm
View file

@ -46,8 +46,6 @@
ldict-filter ldict-filter
ldict-reduce ldict-reduce
ldict-update
ldict-tests! ldict-tests!
) )
@ -201,11 +199,6 @@
(loop (cdr pairs) (loop (cdr pairs)
(proc acc (caar pairs) (cdar pairs)))))) (proc acc (caar pairs) (cdar pairs))))))
;; Functional update
(define (dict-update d k proc . dfls)
(dict-set d k
(proc (apply dict-ref d k dfls))))
;; Performs self-tests of the dictionary module. ;; Performs self-tests of the dictionary module.
(define (ldict-tests!) (define (ldict-tests!)
(run-tests (run-tests