Changeset 13453 in project for chicken


Ignore:
Timestamp:
03/02/09 12:57:15 (11 years ago)
Author:
felix winkelmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/chicken-3/srfi-69.scm

    r12117 r13453  
    10031003      (##sys#check-list alist 'alist->hash-table)
    10041004      (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)
    10081010        ht ) ) ) )
    10091011
Note: See TracChangeset for help on using the changeset viewer.