about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--mu.arc.t15
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"))