andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

mes: Add hash-fold. 

* mes/module/mes/scm.mes (hash-fold): New function.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2019-11-12 12:17:07 +01:00 committed by Timothy Sample
parent e4d35f5915
commit c005d4abd3
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
mes/module/mes/scm.mes
View File

@ -215,6 +215,9 @@
alist)
acc))))))))
(define (hash-fold proc init table)
(fold proc init (hash-map->list cons table)))
;; Vector
(define (vector . rest) (list->vector rest))