diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-08-19 11:58:22 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-08-19 11:58:22 -0700 |
| commit | 955ecf4a45312c495403aacc0b687a4bc33844ec (patch) | |
| tree | acb7087596492a33348f9448a739c67c047eafae | |
| parent | 409e66ccafb90b38eda475953343770ebf1af08d (diff) | |
| download | mu-955ecf4a45312c495403aacc0b687a4bc33844ec.tar.gz | |
52
| -rw-r--r-- | mu.arc.t | 15 |
1 files 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")) |