On Sun, Mar 1, 2009 at 11:01 AM, Drew Hess <[email protected]> wrote:
> On Sat, Feb 28, 2009 at 11:53 PM, Drew Hess <[email protected]> wrote:
>> Hi,
>>
>> I'm able to consistently reproduce a segfault using alist->hash-table
>> with Chicken 3.4.0 on 3 different platforms: Debian unstable x86-64, Mac
>> OS X 10.5.6 x86-64 and Mac OS 10.5.6 i386.
>>
Indeed a bug. Thanks, Drew. I'll commit the fix in the next hours.
cheers,
felix
Index: srfi-69.scm
===================================================================
--- srfi-69.scm (revision 13403)
+++ srfi-69.scm (working copy)
@@ -984,9 +984,11 @@
(lambda (alist . rest)
(##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 ) ) ) )
;; Hash-Table Keys & Values:
_______________________________________________
Chicken-users mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/chicken-users
