diff: bug fix for bugs in library/io.nu.nl

[Fergus Henderson]

library/io.nu.nl:
	Fix some bugs in the code for the Prolog versions of
	io__remove_file and io__rename_file.

cvs diff library/io.nu.nl
Index: library/io.nu.nl
===================================================================
RCS file: /home/staff/zs/imp/mercury/library/io.nu.nl,v
retrieving revision 1.58
diff -u -r1.58 io.nu.nl
--- 1.58	1998/03/04 16:53:18
+++ io.nu.nl	1998/03/27 13:30:57
@@ -562,17 +562,17 @@
 		Result = 0
 	;
 		Result = -1,
-		Resultstr = "rename_file/2 failed"
+		ResultStr = "rename_file/2 failed"
 	}.
 
-io__remove_file_2(FileName, Result) -->
+io__remove_file_2(FileName, Result, ResultStr) -->
 	{ use_module(library(system)) }, % for delete_file/2
 	{ name(FileAtom, OldName) },
 	{ delete_file(FileAtom, []) ->
 		Result = 0
 	;
 		Result = -1,
-		Resultstr = "delete_file/2 failed"
+		ResultStr = "delete_file/2 failed"
 	}.
 
 %-----------------------------------------------------------------------------%

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
WWW: <http://www.cs.mu.oz.au/~fjh>  |  of excellence is a lethal habit"
PGP: finger fjh at 128.250.37.3        |     -- the last words of T. S. Garp.