diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-10-15 19:38:23 +0200 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-10-15 19:38:23 +0200 |
| commit | db89cc9c109c841f7cb8903581971e60b7dc2a71 (patch) | |
| tree | 9d905b83a70cfba8468d0f2df18350b2e870840c | |
| parent | 3735540b2b06fc4b51d85e76c932e98bec284a32 (diff) | |
| download | mew-db89cc9c109c841f7cb8903581971e60b7dc2a71.tar.gz mew-db89cc9c109c841f7cb8903581971e60b7dc2a71.tar.xz mew-db89cc9c109c841f7cb8903581971e60b7dc2a71.zip | |
use cons in generators for hash table entries
| -rw-r--r-- | mew.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/mew.scm b/mew.scm index 80a7e0f..f67db8e 100644 --- a/mew.scm +++ b/mew.scm @@ -398,7 +398,7 @@ (define (hash-table->generator h) (make-for-each-generator (lambda (f t) (hash-table-for-each t (lambda (k v) - (f (list k v))))) + (f (cons k v))))) h)) (define (gen o . rest) @@ -416,7 +416,7 @@ (lambda (x) (list->vector (reverse x))))) ((hash-table? a) (make-accumulator (lambda (kv h) - (apply hash-table-set! h kv) + (hash-table-set! h (car kv) (cdr kv)) h) a (op))) |