rev 568 - trunk/src

Author: mark
Date: 2004-06-03 17:48:45 -0400 (Thu, 03 Jun 2004)
New Revision: 568

Modified:
   trunk/src/interp.c
Log:
working on scope bug

Modified: trunk/src/interp.c
===================================================================
--- trunk/src/interp.c	2004-06-03 21:30:56 UTC (rev 567)
+++ trunk/src/interp.c	2004-06-03 21:48:45 UTC (rev 568)
@@ -1059,6 +1059,7 @@
 						     "!def_code_%s_%d.txt",
 						     as_str(ist, fr_stack[fr_sp+1]), cntr++);
 					dump_code(ist, func, func->data.ptr, dump_name);
+					set_attr(ist, func, sym(ist, "dumpName_"), NEW_STRING(dump_name));
 				}
 #endif
 				if (op == OP_GEN) {
@@ -1296,7 +1297,7 @@
 #endif
 				fr_sp--;
 				switch_frame = create_frame( ist, frame->self, frame->locals, frame->dyn_locals, 
-					                              fr_stack[fr_sp], fr_data(1), NULL, "with" );
+					                              fr_stack[fr_sp], fr_data(1), NULL, NULL );
 				switch_frame->prev_frame = frame;
 				frame->next_frame = switch_frame;
 end_op_obj:		break;