Changeset 15327 for src/Pugs/Parser

Timestamp:

02/22/07 20:20:59 (21 months ago)

Author:

lwall

Message:

Y -> Z, XX -> X

Files:

• src/Pugs/Parser/Operator.hs (modified) (2 diffs)

src/Pugs/Parser/Operator.hs

@@ -21 +21 @@
 
 listInfix :: [RuleOperator Exp]
-listInfix = listOps (opWords "Y \xA5 XX ==> <==")  -- List infix
+listInfix = listOps (opWords "Z X minmax ==> <==")  -- List infix
 
 opWords :: String -> Set OpName
@@ -724 +724 @@
 defaultInfixOps = opWords $ concat
     [ " ** * / % x xx +& +< +> ~& ~< ~> "
-    , " + - ~ +| +^ ~| ~^ ?| , Y \xA5 XX "
+    , " + - ~ +| +^ ~| ~^ ?| , Z X minmax "
     , " & ^ | "
     , " => = "