wisp
 
(drak)
2014-01-05: add examples with macros.

add examples with macros.

diff --git a/examples/macros.w b/examples/macros.w
new file mode 100644
--- /dev/null
+++ b/examples/macros.w
@@ -0,0 +1,32 @@
+#!/home/arne/wisp/wisp-multiline.sh -l guile
+; !#
+
+;; Testing syntax-rules and syntax-case with wisp
+
+;; Syntax-case: add1 (from guile docs)
+define-syntax add1
+  lambda : x
+    syntax-case x : 
+      : _ exp
+        syntax : + exp 1
+
+;; use the #' shorthand for syntax
+define-syntax add2
+  lambda : x
+    syntax-case x : 
+      : _ exp
+        #' + exp 2
+
+;; Syntax-rules add which requires at least 1 argument
+define-syntax add-with-argument
+ syntax-rules : 
+  : _ a b ...
+    + a b ...
+
+;; Same with syntax-case
+define-syntax add-with-argument
+ lambda : x
+  syntax-case x : 
+   : _ a b ...
+     #' + a b ...
+