Re: loop translations (was: Re: language translator help)

[Eric E Moore <e.e.moore@sheffield.ac.uk>]

[-- Attachment #1: Type: text/plain, Size: 977 bytes --]

Eric E Moore <e.e.moore@sheffield.ac.uk> writes:

> Basically there needs to be a plain identifier before them, that needs
> to appear before the corresponding ... in the replacement.  Rather
> than thinking of the pattern think of the pattern <something> ... 

This isn't *quite* right, you can have other things besides a plain
identifier, but there still needs to be something before the ... that
contains pattern variables from the pattern.  So you can do:

(define-syntax append-one
  (syntax-rules ()
    ((append-one (form ...) ...)
     (begin
       (form ... 1) ...))))

Which will append 1 to all the forms in the append-one clause, such that:

(append-one (set! x) (+ x 3))

will expand to:

(begin 
  (set! x 1)
  (+ x 3 1))

and have the value of 6.....

Still, my correction to your code is probably what you want :)

> The r5rs description is... less than transparant, I'll grant :)

This still applies ;)

-- 
Eric E. Moore

[-- Attachment #2: Type: application/pgp-signature, Size: 227 bytes --]