135

1 files changed, 16 insertions, 0 deletions

diff --git a/mu.arc.t b/mu.arc.t
index 9c63d882..a9afb940 100644
--- a/mu.arc.t
+++ b/mu.arc.t
@@ -806,6 +806,22 @@
   (prn "F - missing 'arg' sets a second oarg when provided"))
 ;? (quit)
 
+(reset)
+(new-trace "new-fn-arg-missing-3")
+(add-fns
+  '((test1
+      ((4 integer) <- arg)
+      ((5 integer) <- copy (34 literal))
+      ((5 integer) (6 boolean) <- arg))
+    (main
+      (test1 (1 literal))
+    )))
+(run 'main)
+;? (prn memory*)
+(if (~iso memory* (obj 4 1  6 t))
+  (prn "F - missing 'arg' consistently wipes its oarg"))
+;? (quit)
+
 ; how should errors be handled? will be unclear until we support concurrency and routine trees.
 
 (reset)