mes: Add hash-for-each.
* mes/module/mes/scm.mes (hash-for-each): New function.
This commit is contained in:
parent
f123b8b75b
commit
70010bfa4d
|
@ -205,6 +205,11 @@
|
||||||
(define (hash-fold proc init table)
|
(define (hash-fold proc init table)
|
||||||
(fold proc init (hash-map->list cons 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
|
;; Variable
|
||||||
(define (make-undefined-variable)
|
(define (make-undefined-variable)
|
||||||
|
|
Loading…
Reference in New Issue