From 545b524bda45f2087ac92cf58f6eaa78499332cf Mon Sep 17 00:00:00 2001
From: David Robillard <d@drobilla.net>
Date: Thu, 18 Jun 2009 20:22:10 +0000
Subject: Primitive internal macro system (for implementing sugar). (def (f x)
 ...) sugar.

git-svn-id: http://svn.drobilla.net/resp/tuplr@119 ad02d1e2-f140-0410-9f75-f8b11f17cedd
---
 test/ack.tpr | 9 ++++-----
 test/fac.tpr | 6 +++---
 2 files changed, 7 insertions(+), 8 deletions(-)

(limited to 'test')

diff --git a/test/ack.tpr b/test/ack.tpr
index 1fe38d5..76fb397 100644
--- a/test/ack.tpr
+++ b/test/ack.tpr
@@ -1,8 +1,7 @@
-(def ack
-  (fn (m n)
-    (if (= 0 m) (+ n 1)
-        (= 0 n) (ack (- m 1) 1)
-        (ack (- m 1) (ack m (- n 1))))))
+(def (ack m n)
+  (if (= 0 m) (+ n 1)
+      (= 0 n) (ack (- m 1) 1)
+      (ack (- m 1) (ack m (- n 1)))))
 
 (ack 3 10)
 
diff --git a/test/fac.tpr b/test/fac.tpr
index 77e4776..0fb687c 100644
--- a/test/fac.tpr
+++ b/test/fac.tpr
@@ -1,7 +1,7 @@
 ; Factorial
-(def fac (fn (n)
+(def (fac n)
  (if (= 0 n) 1
-     (* n (fac (- n 1))))))
+     (* n (fac (- n 1)))))
 
-(fac 5)
+(fac 6)
 
-- 
cgit v1.2.1