[Xsb-commits] CVS: XSB/emu builtin.c,1.164,1.165

[Tom S. <tsc...@us...>]

Update of /cvsroot/xsb/XSB/emu
In directory sc8-pr-cvs1:/tmp/cvs-serv7156/emu

Modified Files:
	builtin.c 
Log Message:
made term_set_arg/4 backward compatible


Index: builtin.c
===================================================================
RCS file: /cvsroot/xsb/XSB/emu/builtin.c,v
retrieving revision 1.164
retrieving revision 1.165
diff -u -r1.164 -r1.165
--- builtin.c	29 Sep 2003 13:05:12 -0000	1.164
+++ builtin.c	30 Sep 2003 14:44:26 -0000	1.165
@@ -1166,11 +1166,11 @@
     break;
   }
   case TERM_SET_ARG: {	/* R1: +term; R2: index (+int) */
-			/* R3: newarg (+term); R4: +perm(not used) */
+			/* R3: newarg (+term) */
     /* used in file_read.P, array.P, array1.P */
     int  disp = ptoc_int(2);
     Cell term = ptoc_tag(1);
-    if (ptoc_int(4) > 0) {
+    if (ptoc_int(4) == 0) {
       pushtrail(clref_val(term)+disp,cell(reg+3));
     } else if (ptoc_int(4) < 0) {
       push_pre_image_trail(clref_val(term)+disp, cell(reg+3));