mes: Add hash-for-each.

* mes/module/mes/scm.mes (hash-for-each): New function.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2019-11-13 08:29:06 +01:00 committed by Timothy Sample
parent 64d6dff810
commit 2296972201
1 changed files with 5 additions and 0 deletions

View File

@ -218,6 +218,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*)
;; Vector
(define (vector . rest) (list->vector rest))