[Xsb-commits] CVS: XSB/emu std_pred_xsb_i.h,1.25,1.26

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

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

Modified Files:
	std_pred_xsb_i.h 
Log Message:
Allow desc and sort specification (type check didn't account for it.)


Index: std_pred_xsb_i.h
===================================================================
RCS file: /cvsroot/xsb/XSB/emu/std_pred_xsb_i.h,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -r1.25 -r1.26
--- std_pred_xsb_i.h	22 Jul 2005 15:42:17 -0000	1.25
+++ std_pred_xsb_i.h	24 Jul 2005 18:51:39 -0000	1.26
@@ -814,7 +814,7 @@
     if (isnil(term2)) break;
     if (islist(term2)) {
       heap_addr = cell(clref_val(term2)); XSB_Deref(heap_addr);
-      if (par_spec.sort_num_pars == 0 || 
+      if (par_spec.sort_num_pars <= 0 || 
 	  (isconstr(heap_addr) && (get_arity(get_str_psc(heap_addr)) >= max_ind)) ||
 	  (islist(heap_addr) && max_ind <=2)) {
 	len++; term2 = cell(clref_val(term2)+1);