mes: Add hash-for-each.
* mes/module/mes/scm.mes (hash-for-each): New function.
This commit is contained in:
parent
64d6dff810
commit
2296972201
|
@ -218,6 +218,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*)
|
||||||
|
|
||||||
|
|
||||||
;; Vector
|
;; Vector
|
||||||
(define (vector . rest) (list->vector rest))
|
(define (vector . rest) (list->vector rest))
|
||||||
|
|
Loading…
Reference in New Issue