Changeset 13453 in project
- Timestamp:
- 03/02/09 12:57:15 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/branches/chicken-3/srfi-69.scm
r12117 r13453 1003 1003 (##sys#check-list alist 'alist->hash-table) 1004 1004 (let ([ht (apply make-hash-table rest)]) 1005 (for-each (lambda (x) 1006 (%hash-table-update!/default ht (##sys#slot x 0) identity (##sys#slot x 1)) ) 1007 alist) 1005 (for-each 1006 (lambda (x) 1007 (##sys#check-pair x 'alist->hash-table) 1008 (%hash-table-update!/default ht (##sys#slot x 0) identity (##sys#slot x 1)) ) 1009 alist) 1008 1010 ht ) ) ) ) 1009 1011
Note: See TracChangeset
for help on using the changeset viewer.