xloop0

http://awwx.ws/xloop0.arc:

(mac xloop (withses . body)
  (let w (pair withses)
    `((rfn next ,(map car w) ,@body) ,@(map cadr w))))

loop renamed to xloop to avoid conflict with Arc’s loop.

Get this hack

Using the hackinator:

$ hack \
    ycombinator.com/arc/arc3.1.tar \
    awwx.ws/xloop0.arc

License

Same as Arc.

Contact me