[svn:parrot] r19675 - trunk/languages/tcl/src

[coke]

Author: coke
Date: Sat Jul  7 09:47:10 2007
New Revision: 19675

Modified:
   trunk/languages/tcl/src/binary.c

Log:
silence annoying compiler warning

Modified: trunk/languages/tcl/src/binary.c
==============================================================================
--- trunk/languages/tcl/src/binary.c    (original)
+++ trunk/languages/tcl/src/binary.c    Sat Jul  7 09:47:10 2007
@@ -102,7 +102,7 @@
     PMC *elem;
     PMC *values = pmc_new(interp, class_TclList);
 
-    while (elem = binary_scan_number_field(interp, field, binstr, _pos, 
length))
+    while ( (elem = binary_scan_number_field(interp, field, binstr, _pos, 
length)) )
         VTABLE_push_pmc(interp, values, elem);
 
     return values;