Changeset 13453 in project

Timestamp:

03/02/09 12:57:15 (12 years ago)

Author:

felix winkelmann

Message:

srfi-69 alist->hash-table fix (thanks to Drew Hess)

File:

• chicken/branches/chicken-3/srfi-69.scm (modified) (1 diff)

chicken/branches/chicken-3/srfi-69.scm

@@ -1003 +1003 @@
       (##sys#check-list alist 'alist->hash-table)
       (let ([ht (apply make-hash-table rest)])
-        (for-each (lambda (x)
-                    (%hash-table-update!/default  ht (##sys#slot x 0) identity (##sys#slot x 1)) )
-                  alist)
+        (for-each 
+         (lambda (x)
+           (##sys#check-pair x 'alist->hash-table)
+           (%hash-table-update!/default  ht (##sys#slot x 0) identity (##sys#slot x 1)) )
+         alist)
         ht ) ) ) )