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 Nieuwenhuizen 2019-11-12 12:17:07 +01:00 committed by Jan (janneke) Nieuwenhuizen
parent 824bc1b15a
commit 13785e43f3
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
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

@ -202,6 +202,9 @@
(define (hash-ref table key . rest)
(core:hash-ref table key (and (pair? rest) (car rest))))
(define (hash-fold proc init table)
(fold proc init (hash-map->list cons table)))
;; Variable
(define (make-undefined-variable)