[m-rev.] trivial diff: fix file close bug in passes_aux.m

[Fergus Henderson]

This fixes a bug which causes "checking whether .../mmc is
sufficiently recent" to return "no", because the installed
mmc was broken.

----------

Estimated hours taken: 0.25
Branches: main

compiler/passes_aux.m:
	Fix a bug in stayl's recent change:
	`output_to_file' was closing the original output stream,
	rather than the stream for the file.

Workspace: /home/ceres/fjh/ws-ceres3/mercury
Index: compiler/passes_aux.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/passes_aux.m,v
retrieving revision 1.43
diff -u -d -r1.43 passes_aux.m
--- compiler/passes_aux.m	20 Mar 2002 12:37:05 -0000	1.43
+++ compiler/passes_aux.m	20 Mar 2002 12:38:10 -0000
@@ -665,7 +665,7 @@
 		io__set_output_stream(FileStream, OutputStream),
 		Action(ActionResult),
 		io__set_output_stream(OutputStream, _),
-		io__close_output(OutputStream),
+		io__close_output(FileStream),
 		maybe_write_string(Verbose, "% done.\n"),
 		maybe_report_stats(Stats),
 		{ Result = yes(ActionResult) }

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
The University of Melbourne         |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------