March 2014 update

2014-04-02 16:56:35 +00:00 · 2014-04-02 16:56:35 +00:00 · a25938f123
commit a25938f123
parent 09687c4926
1846 changed files with 21876 additions and 5203 deletions
--- a/Task/Metaprogramming/TXR/metaprogramming.txr
+++ b/Task/Metaprogramming/TXR/metaprogramming.txr
@ -0,0 +1,27 @@
+@(do
+   (defmacro while ((condition : result) . body)
+     (let ((cblk (gensym "cnt-blk-"))
+           (bblk (gensym "brk-blk-")))
+       ^(macrolet ((break (value) ^(return-from ,',bblk ,value)))
+          (symacrolet ((break (return-from ,bblk))
+                       (continue (return-from ,cblk)))
+            (block ,bblk
+              (for () (,condition ,result) ()
+                (block ,cblk ,*body)))))))
+
+   (let ((i 0))
+     (while ((< i 100))
+       (if (< (inc i) 20)
+         continue)
+       (if (> i 30)
+         break)
+       (prinl i)))
+
+   (prinl
+     (sys:expand
+       '(while ((< i 100))
+          (if (< (inc i) 20)
+            continue)
+          (if (> i 30)
+            break)
+          (prinl i)))))