From 6134f36da88e71adece8b361d50b682964df84b6 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Thu, 17 Jul 2014 07:04:45 -0700
Subject: 24

---
 mu.arc | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/mu.arc b/mu.arc
index 6438f4f4..fa8a1a01 100644
--- a/mu.arc
+++ b/mu.arc
@@ -14,11 +14,6 @@
 ; just a convenience until we get an assembler
 (= type* (obj integer 0 location 1 address 2))
 
-(mac aelse (test else . body)
-  `(aif ,test
-      (do ,@body)
-      ,else))
-
 (def add-fns (fns)
   (each (name . body) fns
     (= function*.name body)))
@@ -110,9 +105,9 @@
                 (do (= result arg)
                     (break))
               ; else user-defined function
-                (aelse function*.op (prn "no definition for " op)
+                (let-or new-body function*.op (prn "no definition for " op)
 ;?                   (prn "== " memory*)
-                  (let results (run it arg (map car oarg))
+                  (let results (run new-body arg (map car oarg))
                     (each o oarg
 ;?                       (prn o)
                       (= (memory* o.1) (memory* pop.results.1)))))
-- 
cgit 1.4.1-2-gfad0