[Xsb-commits] CVS: XSB/emu biassert.c,1.96,1.97

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

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

Modified Files:
	biassert.c 
Log Message:
Minor code cleanup of previous updates.


Index: biassert.c
===================================================================
RCS file: /cvsroot/xsb/XSB/emu/biassert.c,v
retrieving revision 1.96
retrieving revision 1.97
diff -u -r1.96 -r1.97
--- biassert.c	18 Oct 2005 20:12:53 -0000	1.96
+++ biassert.c	18 Oct 2005 20:37:16 -0000	1.97
@@ -2623,7 +2623,6 @@
 void retractall_prref(CTXTdeclc PrRef prref) {
   int btop = 0;
   ClRef buffer;
-  ClRef frstbuff;
   ClRef buffers_to_free[MAXDYNFREEBUFF];
 
   if (prref && (cell_opcode((CPtr)prref) != fail)) {
@@ -2632,8 +2631,7 @@
       return;
     }
     force_retract_buffers(CTXT);
-    frstbuff = prref->FirstClRef;
-    buffers_to_free[btop++] = frstbuff;
+    buffers_to_free[btop++] = prref->FirstClRef;
     while (btop > 0) {
       if (btop >= MAXDYNFREEBUFF) xsb_exit("Too many buffers to retract");
       buffer = buffers_to_free[--btop];