[Xsb-commits] CVS: XSB/packages dbdrivers.P,1.12,1.13

[Michael K. <ki...@us...>]

Update of /cvsroot/xsb/XSB/packages
In directory sc8-pr-cvs10.sourceforge.net:/tmp/cvs-serv31108/packages

Modified Files:
	dbdrivers.P 
Log Message:
a fix from saikat.
makes it possible to use dbdriver calls in a fail-loop


Index: dbdrivers.P
===================================================================
RCS file: /cvsroot/xsb/XSB/packages/dbdrivers.P,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- dbdrivers.P	4 Dec 2006 10:20:20 -0000	1.12
+++ dbdrivers.P	25 Jun 2007 13:53:29 -0000	1.13
@@ -51,8 +51,8 @@
 	    path_sysop(newerthan,ConfigSharedMod,ModuleSourceFile)
 	%% module compiled and is current, so just load
 	-> [Basename]
-	;   (search_module(Basename,Dir,_Mod,_Ext,BaseDir,ModuleO)
-	    -> path_sysop(unlink,ModuleO)
+	;   (search_module(Basename,Dir,_Mod,_Ext,BaseDir,ModuleO),
+	    path_sysop(unlink,ModuleO), !
 	    ; true
 	    ),
 	    [Basename],