Changeset 17577

Timestamp:

09/01/07 15:06:14 (15 months ago)

Author:

masak

Message:

[src/Pugs/Parser.hs]
* disallowed "else" and "elsif" after "unless"

Files:

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

src/Pugs/Parser.hs

@@ -1148 +1148 @@
         body     <- ruleBareOrPointyBlockLiteralWithoutDefaultParams
         bodyElse <- option emptyExp ruleElseConstruct
-        return $ case csym of
-            "if"    -> Syn "cond" [cond, body, bodyElse]
-            _       -> Syn "cond" [cond, bodyElse, body]
+        case csym of
+            "if"    -> return $ Syn "cond" [cond, body, bodyElse]
+            _       -> if bodyElse == emptyExp then
+                             return $ Syn "cond" [cond, bodyElse, body]
+                        else fail "no else after unless"
+
 
 ruleCondPart :: RuleParser Exp