Changeset 13451 in project


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

srfi-69 error check added (thanks to Drew Hess)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/srfi-69.scm

    r12937 r13451  
    985985      (##sys#check-list alist 'alist->hash-table)
    986986      (let ([ht (apply make-hash-table rest)])
    987         (for-each (lambda (x)
    988                     (*hash-table-update!/default  ht (##sys#slot x 0) identity (##sys#slot x 1)) )
    989                   alist)
     987        (for-each
     988         (lambda (x)
     989           (##sys#check-pair x 'alist->hash-table)
     990           (*hash-table-update!/default  ht (##sys#slot x 0) identity (##sys#slot x 1)) )
     991         alist)
    990992        ht ) ) ) )
    991993
Note: See TracChangeset for help on using the changeset viewer.