Re: [Chicken-users] Bug with a record named record

[felix winkelmann]

On 1/10/07, Daniel Sadilek <address@hidden> wrote:
> Hello,
>
> this program causes a segmentation fault on Windows (cygwin) and Linux
> with Chicken 2.5:
>
> (define-record record value)
> (print (make-record 1))
>
> If I rename the record it works:
>
> (define-record foo value)
> (print (make-foo 1))

Uh oh - the printer thinks this is a special case, which it isn't.
IIRC this is left over from times where a different record-type
facility was internally supported.

Sorry, here is a patch for library.scm:

2779,2780c2779
<     [typename (if (eq? 'record type) (##sys#slot (##sys#slot x 1) 1) type)]
<     [a (assq typename ##sys#record-printers)] )
---
>          [a (assq type ##sys#record-printers)] )


cheers,
felix