[Xsb-commits] CVS: XSB/syslib standard.P,1.59,1.60 standard.xwam,1.9,1.10

[Terrance S. <ts...@us...>]

Update of /cvsroot/xsb/XSB/syslib
In directory usw-pr-cvs1:/tmp/cvs-serv12610

Modified Files:
	standard.P standard.xwam 
Log Message:
fixed bug in opening files in write and append mode.


Index: standard.P
===================================================================
RCS file: /cvsroot/xsb/XSB/syslib/standard.P,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -r1.59 -r1.60
--- standard.P	27 Sep 2002 22:47:06 -0000	1.59
+++ standard.P	3 Nov 2002 03:02:14 -0000	1.60
@@ -197,7 +197,7 @@
 	),
 	psc_prop(PSC, File0),
 	stat_set_flag(CURRENT_OUTPUT, File0),
-	conpsc(current_input, CurinPsc),
+	conpsc(current_output, CurinPsc),
 	psc_set_prop(CurinPsc, PSC),
 	tell0(userout).
 open(F,append,F):-!, 
@@ -212,7 +212,7 @@
 	),
 	psc_prop(PSC, File0),
 	stat_set_flag(CURRENT_OUTPUT, File0),
-	conpsc(current_input, CurinPsc),
+	conpsc(current_output, CurinPsc),
 	psc_set_prop(CurinPsc, PSC),
 	tell0(userout).
 

Index: standard.xwam
===================================================================
RCS file: /cvsroot/xsb/XSB/syslib/standard.xwam,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
Binary files /tmp/cvs8uFXIV and /tmp/cvsiQnjfH differ