This is the mail archive of the guile@cygnus.com mailing list for the guile project.
Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
---|---|---|
Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
How about: (define (hash-table-for-each proc ht) (array-for-each (lambda (buckets) (for-each (lambda (p) (proc (car p) (cdr p))) alist)) ht)) (define (hash-table-map proc ht) (map (lambda (p) (proc (car p) (cdr p))) (apply append! (vector->list ht)))) /mdj