flora-commits Mailing List for Flora-2

Update of /cvsroot/flora/flora2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12727

Modified Files:
	flrutils.P flora2.P 
Log Message:
fixes in flLoad


Index: flora2.P
===================================================================
RCS file: /cvsroot/flora/flora2/flora2.P,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- flora2.P	9 May 2005 00:31:21 -0000	1.13
+++ flora2.P	22 Jun 2005 03:46:18 -0000	1.14
@@ -234,19 +234,19 @@
 
 flImport(X) :- flora_abort(['Invalid flImport syntax: ', X]).
 
-flLoad(File>>Module) :- flora_load_module_internal(File,Module).
+flLoad(File>>Module) :- !, flora_load_module_internal(File,Module).
 flLoad(File) :- flora_load_module_internal(File).
 
-flCompile(File>>Module) :- flora_compile_internal(File,Module).
+flCompile(File>>Module) :- !, flora_compile_internal(File,Module).
 flCompile(File) :- flora_compile_internal(File).
 
 
 %% Add file contents to module
-flAdd(File>>Module) :- flora_add_module_dyn(File,Module).
+flAdd(File>>Module) :- !, flora_add_module_dyn(File,Module).
 flAdd(File) :- flora_add_module_dyn(File).
 
 %% Compile for adding to module
-flCompileAdd(File>>Module) :- flora_compile_add(File,Module).
+flCompileAdd(File>>Module) :- !, flora_compile_add(File,Module).
 flCompileAdd(File) :- flora_compile_add(File).
 
 flDBConnect(DSN,DataBase,UserName,Password,ModuleName) :-

Index: flrutils.P
===================================================================
RCS file: /cvsroot/flora/flora2/flrutils.P,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -d -r1.53 -r1.54
--- flrutils.P	9 May 2005 16:14:49 -0000	1.53
+++ flrutils.P	22 Jun 2005 03:46:17 -0000	1.54
@@ -812,7 +812,7 @@
 *************************************************************************/
 flora_check_filename(Name) :-
 	( not atom(Name) ->
-	    flora_error_line('Invalid file name'),
+	    flora_error_line('Invalid file name: ~w', [Name]),
 	    fail
 	;
 	  true