mes: Add hash-for-each.
* mes/module/mes/scm.mes (hash-for-each): New function.
This commit is contained in:
parent
54e6977dc2
commit
b91b2171fe
|
@ -205,6 +205,11 @@
|
|||
(define (hash-fold proc init table)
|
||||
(fold proc init (hash-map->list cons table)))
|
||||
|
||||
(define (hash-for-each proc table)
|
||||
(hash-map->list proc table)
|
||||
;;(hash-fold (lambda (key value x) (proc key value)) #f table)
|
||||
*unspecified*)
|
||||
|
||||
|
||||
;; Variable
|
||||
(define (make-undefined-variable)
|
||||
|
|
Loading…
Reference in New Issue