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