Changeset 14661 for src/Pugs/Parser

Timestamp:

11/06/06 21:31:21 (2 years ago)

Author:

audreyt

svk:copy_cache_prev:

41990

Message:

* Pugs.Parser.Operator: "state (...) = ..." now desugars correctly.

Files:

• src/Pugs/Parser/Operator.hs (modified) (1 diff)

src/Pugs/Parser/Operator.hs

@@ -129 +129 @@
         ys <- parseExpWithTightOps `sepEndBy` ruleComma
         return (Syn "," (y:ys))
-    return (Syn "=" [forceParens x, rhs])
+    return $ declAssignHack (Syn "=" [forceParens x, rhs])
     where
     -- XXX - Special casing ($x) = 1,2,3 to ($x,) = 1,2,3