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]

Re: hash-table-for-each, hash-table-map

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