diff options
Diffstat (limited to 'csc/hash-map.csc')
| -rw-r--r-- | csc/hash-map.csc | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/csc/hash-map.csc b/csc/hash-map.csc index 81ed770..ae5c3df 100644 --- a/csc/hash-map.csc +++ b/csc/hash-map.csc @@ -1,7 +1,7 @@ (define-library (csc hash-map) (export alist->map - for-each + map-for-each hash-bytevector insert key-not-found-error? @@ -225,7 +225,7 @@ (lookup (map-root m)))) - (define (for-each f m) + (define (map-for-each f m) (letrec ((node-foreach (lambda (n) (unless (null? n) @@ -237,7 +237,7 @@ (define (map->alist m) (let ((alist '())) - (for-each + (map-for-each (lambda (k v) (set! alist (cons (cons k v) alist))) m) @@ -262,7 +262,7 @@ (define (merge2 m1 m2) (let ((m1 m1)) - (for-each + (map-for-each (lambda (k v) (set! m1 (insert m1 k v))) m2) |