# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1406321983 25200
# Node ID 494ef2e3a756caae39499e96b61e50e69de8144f
# Parent  afd55b32549bbd337e350c0b7163f054dc690545
Properly pass initial arguments to main

diff -r afd55b32549b -r 494ef2e3a756 code/lmc.tp
--- a/code/lmc.tp	Fri Jul 25 13:47:21 2014 -0700
+++ b/code/lmc.tp	Fri Jul 25 13:59:43 2014 -0700
@@ -241,8 +241,12 @@
 						error: "Only assignments are allowed at the top level"
 					}
 				}
+				after_env <- prog makeLabel: "after_env"
+				prog add: (inst: "LDF" #[after_env])
+				prog add: (inst: "TRAP" #[num])
+				prog setLabel: after_env
 				prog add: (inst: "LDF" #["main"])
-				prog add: (inst: "TRAP" #[num])
+				prog add: (inst: "TAP" #[2])
 				
 				foreach: functions :fname fun {
 					prog setLabel: fname
diff -r afd55b32549b -r 494ef2e3a756 code/test.lm
--- a/code/test.lm	Fri Jul 25 13:47:21 2014 -0700
+++ b/code/test.lm	Fri Jul 25 13:59:43 2014 -0700
@@ -9,7 +9,7 @@
 		#[myState 1]
 	}
 	
-	main <- {
+	main <- :initWorld mystery{
 		#[0 step]
 	}
 }