Changeset 7879

Show
Ignore:
Timestamp:
11/06/05 18:07:27 (3 years ago)
Author:
autrijus
Message:

* Empty p6 rules now raises exceptions.

Reported by Patrick Michaud.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Prim/Match.hs

    r7861 r7879  
    1515 
    1616doMatch :: String -> VRule -> Eval VMatch 
    17 -- Work around PGE bug on Parrot 0.3.1 -- empty rule matches automatically 
    18 doMatch _ MkRulePGE{ rxRule = "" } = return $ mkMatchOk 0 0 "" [] Map.empty 
     17-- Work around PGE bug on Parrot 0.3.1 -- empty rules are errors 
     18doMatch _ MkRulePGE{ rxRule = "" } = fail "Null patterns are invalid; use <?null> or an empty string instead" 
    1919doMatch cs MkRulePGE{ rxRule = re } = do 
    2020    let pwd1 = getConfig "installarchlib" ++ "/CORE/pugs/pge"