Changeset 14933 for src/Pugs/Parser

Timestamp:

12/21/06 04:43:12 (2 years ago)

Author:

luqui

Message:

Implemented XX (but not the metaoperator).

Files:

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

src/Pugs/Parser/Operator.hs

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