From 40f0a658f0b24f7231886ac61758f42e4b088742 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 6 Jul 2014 02:35:45 -0700 Subject: 7 --- mu.arc.t | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'mu.arc.t') diff --git a/mu.arc.t b/mu.arc.t index 7c05cefa..88dbde68 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -76,3 +76,22 @@ ; add-fn's temporaries 4 1 5 3 6 4)) (prn "F - parameterized compound fn with return value")) + +(clear) +(add-fns + '((add-fn + (4 <- read) + (5 <- read) + (6 <- add 4 5) + (return 6 5) + (4 <- loadi 34)) + (main + (1 <- loadi 1) + (2 <- loadi 3) + (3 7 <- add-fn 1 2)))) +(run function*!main) +;? (prn memory*) +(if (~iso memory* (obj 1 1 2 3 3 4 7 3 + ; add-fn's temporaries + 4 1 5 3 6 4)) + (prn "F - parameterized compound fn with multiple return values")) -- cgit 1.4.1-2-gfad0