akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

52

This commit is contained in:
Kartik K. Agaram 2014-08-19 11:58:22 -07:00
parent 409e66ccaf
commit 955ecf4a45
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
mu.arc.t
View File

@ -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"))