@@ -84,6 +84,9 @@ of the shortest list in `ls'; extra elements in other lists are discarded. " (apply map list ls)) +(def mklist (x) + " Wraps atoms in a list; does nothing if `x' is already a list." + (check x alist list.x)) * ; combinators @@ -336,7 +339,7 @@ x) See also [[w/afn]] [[rfnwith]] [[rfn]] " - `(rfnwith ,name ,(mappend [list _ _] withses) ,@body)) + `(rfnwith ,name ,(mappend [list _ _] mklist.withses) ,@body)) (mac w/afn (withses . body) " Convenient wrapper for applying an afn using the preexisting variables lib/util.arc e05eedb15f20af392ce8d0ac88e99653b04dc91f Justin Kendrick twilightsentry@gmail.com http://github.com/nex3/arc/commit/4576b309fe877293803970a5e235fcdf48c2d08a 4576b309fe877293803970a5e235fcdf48c2d08a 2009-09-29T12:13:16-07:00 2009-09-29T12:13:16-07:00 allow 'w/rfn to accept a single arg as an atom c5793a3abf246c8fe5a7fcd8433fbc7eadd56909 Justin Kendrick twilightsentry@gmail.com