diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-07-17 07:04:45 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-07-17 07:04:45 -0700 |
| commit | 6134f36da88e71adece8b361d50b682964df84b6 (patch) | |
| tree | b1cfb91d0ea19f5b037b73244022cf04ac786d0c | |
| parent | c8d7559adb41795dc2bbe52f4acae77113a3f34b (diff) | |
| download | mu-6134f36da88e71adece8b361d50b682964df84b6.tar.gz | |
24
| -rw-r--r-- | mu.arc | 9 |
1 files 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))))) |