# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1406271359 25200
# Node ID 647f7a2d253b2debca9638732e6fc8b44aa38bd8
# Parent  abe3141caefef2f87f1f9af60270faa88c42e3c8
Committing a simple macro example I put together a while ago

diff -r abe3141caefe -r 647f7a2d253b samples/fibmacro.tp
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/fibmacro.tp	Thu Jul 24 23:55:59 2014 -0700
@@ -0,0 +1,21 @@
+#{
+fib <- :n {
+	if: n < 2 {
+		1
+	} else: {
+		(fib: n-1) + (fib: n-2)
+	}
+}
+fibm <- macro: :n {
+	eval: n :n {
+		fib: n
+	} else: {
+		quote: (fib: n)
+	}
+}
+
+main <- {
+	print: (string: (fibm: 20)) . "\n"
+}
+
+}