From 70010bfa4dff1161f83fffa553482a967b35bdc3 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Wed, 13 Nov 2019 08:29:06 +0100
Subject: [PATCH] mes: Add hash-for-each.

* mes/module/mes/scm.mes (hash-for-each): New function.
---
 mes/module/mes/scm.mes | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/mes/module/mes/scm.mes b/mes/module/mes/scm.mes
index 9909c426..d8625a57 100644
--- a/mes/module/mes/scm.mes
+++ b/mes/module/mes/scm.mes
@@ -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)