rev 744 - in trunk: . src

Author: mark
Date: 2004-07-16 17:39:44 -0400 (Fri, 16 Jul 2004)
New Revision: 744

Modified:
   trunk/STATUS.txt
   trunk/src/interp.c
Log:
fixed for param special case of empty list to single var

Modified: trunk/STATUS.txt
===================================================================
--- trunk/STATUS.txt	2004-07-16 07:55:00 UTC (rev 743)
+++ trunk/STATUS.txt	2004-07-16 21:39:44 UTC (rev 744)
@@ -18,15 +18,15 @@
 
 --- implement approved 1.0 items
 	NegativeHexDisplay 1xc3fe instead of -0xc3fe 
+	TwoTier call_ str_ fix 
     SwitchStatement 
-	TwoTier call_ str_ fix 
 	TranslationStrings 
 	TaintAttribute on strings, unTaint() method 
 	GeneratorComprehensions 
 	SliceListsAndEllipses 
 	StacklessLanguageFeatures 
 	
---- use special stdout for each Main
+--- use special stdout for each Main, replace printf with stdout
 	
 --- call_ does not respect properties
 

Modified: trunk/src/interp.c
===================================================================
--- trunk/src/interp.c	2004-07-16 07:55:00 UTC (rev 743)
+++ trunk/src/interp.c	2004-07-16 21:39:44 UTC (rev 744)
@@ -1073,7 +1073,7 @@
 				obj_p list;
 				fr_sp -= param+1;
 				if (has_proto(ist, list=fr_stack[fr_sp], OBJ(TUPLE_PROTO))) {
-					if (list_len(ist, list) > 1 && param == 1) {
+					if (list_len(ist, list) != 1 && param == 1) {
 						set_attr(ist, frame->locals, fr_stack[fr_sp+1], list);
 						break;
 					}