[m-rev.] trivial diff: fix source file map error messages

Simon Taylor stayl at cs.mu.OZ.AU
Sun Jun 16 19:14:55 AEST 2002


Estimated hours taken: 0.1
Branches: main

compiler/source_file_map.m:
	Add newlines to the end of error messages.

Index: source_file_map.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/source_file_map.m,v
retrieving revision 1.3
diff -u -u -r1.3 source_file_map.m
--- source_file_map.m	10 Jun 2002 10:05:47 -0000	1.3
+++ source_file_map.m	16 Jun 2002 09:05:55 -0000
@@ -113,14 +113,15 @@
 			{ Map = Map0 },
 			io__set_exit_status(1),
 			io__write_string(
-	"mercury_compile: unexpected end of file in Mercury.modules file: ")
+	"mercury_compile: unexpected end of file in Mercury.modules file.\n")
 		;
 			{ FileNameCharsResult = error(Error) },
 			{ Map = Map0 },
 			io__set_exit_status(1),
 			io__write_string(
 	"mercury_compile: error in Mercury.modules file: "),
-			io__write_string(io__error_message(Error))
+			io__write_string(io__error_message(Error)),
+			io__nl
 		)
 	;
 		{ ModuleCharsResult = eof },
@@ -131,7 +132,8 @@
 		io__set_exit_status(1),
 		io__write_string(
 			"mercury_compile: error in Mercury.modules file: "),
-		io__write_string(io__error_message(Error))
+		io__write_string(io__error_message(Error)),
+		io__nl
 	).
 
 :- pred read_until_char(char::in, list(char)::in, io__result(list(char))::out,
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------



More information about the reviews mailing list