[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Chicken-users] Problem with (symbol->string) in Chicken 4.0
From: |
Jim Ursetto |
Subject: |
Re: [Chicken-users] Problem with (symbol->string) in Chicken 4.0 |
Date: |
Thu, 30 Apr 2009 19:10:52 -0500 |
On Thu, Apr 30, 2009 at 2:59 PM, William Ramsay <address@hidden> wrote:
> Can you be a little more explicit in what you mean? Adding that just
> produces more errors.
> John Cowan wrote:
>> (lambda body rename compare)
>> (define s (car body))
>> (define ff (cdr body))
Change this:
(define-syntax define-structure
(lambda (s . ff)
(let
((name (symbol->string s)) (n (length ff)))
to this:
(define-syntax define-structure
(lambda (form rename compare)
(let*
((s (cadr form))
(ff (cddr form))
(name (symbol->string s)) (n (length ff)))