@@ -82,6 +82,8 @@ `(do (sref sig ',parms ',name) (safeset ,name (annotate 'mac (fn ,parms ,@body))))))) +(mac make-br-fn (body) `(fn (_) ,body)) + (mac and args (if args (if (cdr args) arc.arc @@ -12,7 +12,7 @@ ; but nested reads still use the curent readtable: (define (read-square-brackets ch port src line col pos) - `(fn (_) + `(make-br-fn ,(read/recursive port #\[ #f))) ; a readtable that is just like the builtin except for []s brackets.scm 5806217aee022279ea9e902d8481eb185770d482 Michael Arntzenius daekharel@gmail.com http://github.com/nex3/arc/commit/1d8e2edf2fcbdad325f58cf07704200ce4c8ac43 1d8e2edf2fcbdad325f58cf07704200ce4c8ac43 2009-08-08T17:19:42-07:00 2009-08-07T17:58:55-07:00 make [foo] translate into (make-br-fn (foo)); add basic make-br-fn macro to arc.arc 136722049fa736425c591d7523eb4286f602d16a Michael Arntzenius daekharel@gmail.com