diff: mercury_to_mercury.m bug fixes

Fergus Henderson fjh at hydra.cs.mu.oz.au
Mon Jun 2 18:05:54 AEST 1997


Fix some bugs that caused some generated `.int' files to be syntactically
invalid.

compiler/mercury_to_mercury.m:
	Add `rule', `\=', and `\' to the list of Mercury operators.

Index: mercury_to_mercury.m
===================================================================
RCS file: /home/staff/zs/imp/mercury/compiler/mercury_to_mercury.m,v
retrieving revision 1.105
diff -u -r1.105 mercury_to_mercury.m
--- mercury_to_mercury.m	1997/06/01 13:21:33	1.105
+++ mercury_to_mercury.m	1997/06/02 07:50:44
@@ -1819,10 +1819,11 @@
 mercury_infix_op("and").	/* NU-Prolog */
 mercury_infix_op("=").
 mercury_infix_op("=..").
-mercury_infix_op("=:=").
+mercury_infix_op("=:=").	/* Prolog */
 mercury_infix_op("==").		/* Prolog (also for constraints, in svar.m) */
+mercury_infix_op("\\=").	/* Prolog */
 mercury_infix_op("\\==").	/* Prolog */
-mercury_infix_op("=\\=").
+mercury_infix_op("=\\=").	/* Prolog */
 mercury_infix_op(">").
 mercury_infix_op(">=").
 mercury_infix_op("<").
@@ -1858,6 +1859,7 @@
 mercury_unary_prefix_op(":-").
 mercury_unary_prefix_op("::").
 mercury_unary_prefix_op("?-").
+mercury_unary_prefix_op("\\").
 mercury_unary_prefix_op("\\+").
 mercury_unary_prefix_op("delete").
 mercury_unary_prefix_op("dynamic").
@@ -1878,6 +1880,7 @@
 mercury_unary_prefix_op("pragma").
 mercury_unary_prefix_op("pred").
 mercury_unary_prefix_op("pure").
+mercury_unary_prefix_op("rule").	/* NU-Prolog */
 mercury_unary_prefix_op("sorted").
 mercury_unary_prefix_op("spy").
 mercury_unary_prefix_op("type").

-- 
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.



More information about the developers mailing list