1 files changed, 13 insertions, 0 deletions
diff --git a/mu.arc.t b/mu.arc.t
index 85dd1cc5..be4075ec 100644
--- a/mu.arc.t
+++ b/mu.arc.t
@@ -8,3 +8,16 @@
 (run function*!test1)
 (if (~iso memory* (obj 1 1  2 3  3 4))
   (prn "F - load and add instructions work"))
+
+(clear)
+(add-fns
+  '((add-fn
+      (3 <- add 1 2))
+    (main
+      (1 <- loadi 1)
+      (2 <- loadi 3)
+      (_ <- add-fn))))
+(run function*!main)
+;? (prn memory*)
+(if (~iso memory* (obj 1 1  2 3  3 4))
+  (prn "F - compound functions work"))