diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-12-07 13:00:02 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-12-07 13:00:02 +0000 |
| commit | 8437e6d29573211a2218444d541c09d4eed3898e (patch) | |
| tree | 00225ab7d949ea016d142ce03ccf4ce652c71fb8 /src/GF/Devel/Compile/CheckGrammar.hs | |
| parent | 36a0f92bdb4bb551f829be47442d438016631bbd (diff) | |
started adding GF back optimization (Factorize)
Diffstat (limited to 'src/GF/Devel/Compile/CheckGrammar.hs')
| -rw-r--r-- | src/GF/Devel/Compile/CheckGrammar.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Devel/Compile/CheckGrammar.hs b/src/GF/Devel/Compile/CheckGrammar.hs index 40fe6075e..d2f7af8fd 100644 --- a/src/GF/Devel/Compile/CheckGrammar.hs +++ b/src/GF/Devel/Compile/CheckGrammar.hs @@ -189,7 +189,7 @@ checkCompleteGrammar abs cnc = do where checkOne js i@(c, Left ju) = case jform ju of JFun -> case Map.lookup c js of - Just (Left j) | jform ju == JLin -> return js + Just (Left j) | jform j == JLin -> return js _ -> do checkWarn $ "WARNING: no linearization of" +++ prt c return js |