[Xsb-commits] CVS: XSB/packages/altCDF cdf_comps_share.P,1.18,1.19

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

Update of /cvsroot/xsb/XSB/packages/altCDF
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23484

Modified Files:
	cdf_comps_share.P 
Log Message:
Make it so a relative path passed to update_all_components is relative
to the current directory, not the altCDF directory.


Index: cdf_comps_share.P
===================================================================
RCS file: /cvsroot/xsb/XSB/packages/altCDF/cdf_comps_share.P,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- cdf_comps_share.P	29 Jan 2004 15:29:04 -0000	1.18
+++ cdf_comps_share.P	13 Feb 2004 22:26:34 -0000	1.19
@@ -712,7 +712,8 @@
 	canonical_pathname([IDIR,Slash,'packages',Slash,'altCDF'],DefaultPath),
 	retractall(pe_cwd(_)),
 	retractall(pe_sysdir(_)),
-	asserta(pe_cwd(DefaultPath)),
+	cwd(CurrentPath),
+	asserta(pe_cwd(CurrentPath)),
 	asserta(pe_sysdir(DefaultPath)),
 	retractall(pe_dir_stack(_)).