From 955ecf4a45312c495403aacc0b687a4bc33844ec Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Tue, 19 Aug 2014 11:58:22 -0700 Subject: 52 --- mu.arc.t | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/mu.arc.t b/mu.arc.t index bbcf8072..b9c903e9 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -1,17 +1,20 @@ (load "mu.arc") (reset) -(add-fns '((test1 - ((1 integer) <- literal 1)))) +(add-fns + '((test1 + ((1 integer) <- literal 1)))) (run function*!test1) +;? (prn memory*) (if (~iso memory* (obj 1 1)) (prn "F - 'literal' writes a literal value (its lone 'arg' after the instruction name) to a location in memory (an address) specified by its lone 'oarg' or output arg before the arrow")) (reset) -(add-fns '((test1 - ((1 integer) <- literal 1) - ((2 integer) <- literal 3) - ((3 integer) <- add (1 integer) (2 integer))))) +(add-fns + '((test1 + ((1 integer) <- literal 1) + ((2 integer) <- literal 3) + ((3 integer) <- add (1 integer) (2 integer))))) (run function*!test1) (if (~iso memory* (obj 1 1 2 3 3 4)) (prn "F - 'add' operates on two addresses")) -- cgit 1.4.1-2-gfad0