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

25

This commit is contained in:
Kartik K. Agaram 2014-07-17 08:13:52 -07:00
parent 6134f36da8
commit 72406d197b
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
mu.arc.t
View File

@ -11,12 +11,12 @@
(clear)
(add-fns
'((add-fn
'((test1
((integer 3) <- add (integer 1) (integer 2)))
(main
((integer 1) <- loadi 1)
((integer 2) <- loadi 3)
(add-fn))))
(test1))))
(run function*!main)
;? (prn memory*)
(if (~iso memory* (obj 1 1 2 3 3 4))
@ -24,14 +24,14 @@
(clear)
(add-fns
'((add-fn
'((test1
((integer 3) <- add (integer 1) (integer 2))
(reply)
((integer 4) <- loadi 34))
(main
((integer 1) <- loadi 1)
((integer 2) <- loadi 3)
(add-fn))))
(test1))))
(run function*!main)
;? (prn memory*)
(if (~iso memory* (obj 1 1 2 3 3 4))
@ -40,7 +40,7 @@
(clear)
(add-fns
'((add-fn
'((test1
((integer 4) <- arg)
((integer 5) <- arg)
((integer 3) <- add (integer 4) (integer 5))
@ -49,7 +49,7 @@
(main
((integer 1) <- loadi 1)
((integer 2) <- loadi 3)
(add-fn (integer 1) (integer 2))
(test1 (integer 1) (integer 2))
)))
(run function*!main)
;? (prn memory*)
@ -61,7 +61,7 @@
(clear)
(add-fns
'((add-fn
'((test1
((integer 5) <- arg 1)
((integer 4) <- arg 0)
((integer 3) <- add (integer 4) (integer 5))
@ -70,7 +70,7 @@
(main
((integer 1) <- loadi 1)
((integer 2) <- loadi 3)
(add-fn (integer 1) (integer 2))
(test1 (integer 1) (integer 2))
)))
(run function*!main)
;? (prn memory*)
@ -82,7 +82,7 @@
(clear)
(add-fns
'((add-fn
'((test1
((integer 4) <- arg)
((integer 5) <- arg)
((integer 6) <- add (integer 4) (integer 5))
@ -91,7 +91,7 @@
(main
((integer 1) <- loadi 1)
((integer 2) <- loadi 3)
((integer 3) <- add-fn (integer 1) (integer 2)))))
((integer 3) <- test1 (integer 1) (integer 2)))))
(run function*!main)
;? (prn memory*)
(if (~iso memory* (obj 1 1 2 3 3 4
@ -101,7 +101,7 @@
(clear)
(add-fns
'((add-fn
'((test1
((integer 4) <- arg)
((integer 5) <- arg)
((integer 6) <- add (integer 4) (integer 5))
@ -110,7 +110,7 @@
(main
((integer 1) <- loadi 1)
((integer 2) <- loadi 3)
((integer 3) (integer 7) <- add-fn (integer 1) (integer 2)))))
((integer 3) (integer 7) <- test1 (integer 1) (integer 2)))))
(run function*!main)
;? (prn memory*)
(if (~iso memory* (obj 1 1 2 3 3 4 7 3
@ -263,7 +263,7 @@
(clear)
(add-fns
'((add-fn
'((test1
((type 4) <- otype 0)
((type 5) <- loadi 0) ; type index corresponding to 'integer'
((boolean 6) <- neq (type 4) (type 5))
@ -275,7 +275,7 @@
(main
((integer 1) <- loadi 1)
((integer 2) <- loadi 3)
((integer 3) <- add-fn (integer 1) (integer 2)))))
((integer 3) <- test1 (integer 1) (integer 2)))))
(run function*!main)
;? (prn memory*)
(if (~iso memory* (obj 1 1 2 3 3 4