(mac each (var expr . body)
(w/uniq (gseq gf gv)
`(let ,gseq ,expr
(if (alist ,gseq)
((rfn ,gf (,gv) (when (acons ,gv) (let ,var (car ,gv) ,@body) (,gf (cdr ,gv)))) ,gseq)
(isa ,gseq 'table)
(maptable (fn ,var ,@body) ,gseq)
(for ,gv 0 (- (len ,gseq) 1)
(let ,var (,gseq ,gv) ,@body))))))t
What does pg's ppr do for src.each?
I'll add a special case in ppr for 'cons in function position. How should it be indented? I'll start with two spaces, but I'm open for suggestions.
The new version should now be on github and anarki's master branch.
I'll try and move it over to arc3.master soon.