Re: [Chicken-users] Problem with (symbol->string) in Chicken 4.0

[Jim Ursetto]

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)))