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