CHANGES/net lib/net.arc @@ -356,3 +356,12 @@ `(w/rfn self ,withses ,@body)) ; end ripoffs + +(def butlast (x) + (cut x 0 (- (len x) 1))) + +(def joinstr (lst (o glue " ")) + (let lst (keep [len> _ 0] lst) + (if lst + (apply + (intersperse (string glue) lst)) + ""))) lib/util.arc 3a59bd7ea3134d3c96c3d2f626e051c21ac67785 Mark Huetsch markhuetsch@gmail.com http://github.com/nex3/arc/commit/0c3bcbfd80912af182792a2f387dc6bec126256a 0c3bcbfd80912af182792a2f387dc6bec126256a 2009-09-24T06:41:59-07:00 2009-09-24T06:41:59-07:00 add lib/net.arc aeec22ee38b3c284fa60b4e0407f5c18a29a8032 Mark Huetsch markhuetsch@gmail.com