From aa0ce16f8b1dc69912f43c9cc49d2e7302406aef Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 11 Jul 2014 21:53:44 -0700 Subject: 17 --- mu.arc.t | 34 ++++++++++++++++++++++++++++------ 1 file changed, 28 insertions(+), 6 deletions(-) (limited to 'mu.arc.t') diff --git a/mu.arc.t b/mu.arc.t index 3825c4b9..5bca40b5 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -41,8 +41,8 @@ (clear) (add-fns '((add-fn - ((integer 4) <- read) - ((integer 5) <- read) + ((integer 4) <- arg) + ((integer 5) <- arg) ((integer 3) <- add (integer 4) (integer 5)) (reply) ((integer 4) <- loadi 34)) @@ -57,12 +57,34 @@ ; add-fn's temporaries 4 1 5 3)) (prn "F - parameterized compound fn")) +;? (quit) + +(clear) +(add-fns + '((add-fn + ((integer 5) <- arg 1) + ((integer 4) <- arg 0) + ((integer 3) <- add (integer 4) (integer 5)) + (reply) + ((integer 4) <- loadi 34)) + (main + ((integer 1) <- loadi 1) + ((integer 2) <- loadi 3) + (add-fn (integer 1) (integer 2)) + ))) +(run function*!main) +;? (prn memory*) +(if (~iso memory* (obj 1 1 2 3 3 4 + ; add-fn's temporaries + 4 1 5 3)) + (prn "F - arg with index")) +;? (quit) (clear) (add-fns '((add-fn - ((integer 4) <- read) - ((integer 5) <- read) + ((integer 4) <- arg) + ((integer 5) <- arg) ((integer 6) <- add (integer 4) (integer 5)) (reply (integer 6)) ((integer 4) <- loadi 34)) @@ -80,8 +102,8 @@ (clear) (add-fns '((add-fn - ((integer 4) <- read) - ((integer 5) <- read) + ((integer 4) <- arg) + ((integer 5) <- arg) ((integer 6) <- add (integer 4) (integer 5)) (reply (integer 6) (integer 5)) ((integer 4) <- loadi 34)) -- cgit 1.4.1-2-gfad0