rev 507 - trunk/src

Author: mark
Date: 2004-05-19 00:59:34 -0400 (Wed, 19 May 2004)
New Revision: 507

Modified:
   trunk/src/interp.c
Log:
changed first Main name from Main1 to Main, changed Main.Argv to Main.argv_

Modified: trunk/src/interp.c
===================================================================
--- trunk/src/interp.c	2004-05-19 04:31:48 UTC (rev 506)
+++ trunk/src/interp.c	2004-05-19 04:59:34 UTC (rev 507)
@@ -1694,7 +1694,7 @@
 //******************************** main_thread ***********************************
 void *main_thread(apr_thread_t *handle, void *argv){
 	isp ist = new_ist(ACC_USER2);
-	int i, main_index=1;
+	int i, main_index=0;
 	obj_p main_sym, module, thread_obj;
 	pr_thread_p thread_p;
 	char* filename = pr_strptr(list_item(ist, (obj_p)argv, 0));
@@ -1714,8 +1714,10 @@
 
 	while (TRUE) {
 		char name[16];
-
-		apr_snprintf(name, sizeof(name), "Main%d", main_index);
+		if (main_index)
+			apr_snprintf(name, sizeof(name), "Main%d", main_index);
+		else
+			strcpy(name, "Main");
 		main_sym = sym(ist, name);
 		if (!get_attr(ist, OBJ(MODULES), main_sym)) {
 			module = NEW_OBJ(OBJ(ROOT_GLOBALS));
@@ -1737,7 +1739,7 @@
 	SetThreadName(symch(ist, main_sym));
 #endif
 
-	set_attr(ist, module, sym(ist, "Argv"), (obj_p) argv);
+	set_attr(ist, module, sym(ist, "argv_"), (obj_p) argv);
 	if (!load_module(ist, main_sym, NULL, NULL, NULL, filename, 
 									":a top-level module", module, NULL)) {
 		if (!intrp_exobj) {