[Xsb-commits] CVS: XSB/emu biassert.c,1.140,1.141

[David S. W. <dw...@us...>]

Update of /cvsroot/xsb/XSB/emu
In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv11108

Modified Files:
	biassert.c 
Log Message:
Oops again.  Strings in head also not asserted right.  So back that out, too.
(Gotta fix the testsuite....)


Index: biassert.c
===================================================================
RCS file: /cvsroot/xsb/XSB/emu/biassert.c,v
retrieving revision 1.140
retrieving revision 1.141
diff -u -r1.140 -r1.141
--- biassert.c	16 Mar 2007 22:15:59 -0000	1.140
+++ biassert.c	17 Mar 2007 00:03:31 -0000	1.141
@@ -905,7 +905,7 @@
   } else {
     Rt = reg_get(CTXTc Reg, TVAR);
     if (unibld) {
-      if (islist(Sub) && isinteger(p2p_car(Sub))) {
+      /*      if (islist(Sub) && isinteger(p2p_car(Sub))) {
 	int num = int_val(p2p_car(Sub));
 	if (num >= 0 && num <= 0xffff) {
 	  dbgen_instB3_tv(unitvar_getlist_uninumcon,Rt,num>>8,num&0xff);
@@ -913,7 +913,7 @@
 	  Sub = p2p_cdr(Sub);
 	  goto begin_db_geninst;
 	} else dbgen_instB_ppv(unitvar, Rt);
-      } else dbgen_instB_ppv(unitvar, Rt);
+	} else */  dbgen_instB_ppv(unitvar, Rt);
     } else {
       /*      if (islist(Sub) && isinteger(p2p_car(Sub))) {
 	int num = int_val(p2p_car(Sub));