diff options
| author | aarne <unknown> | 2005-06-22 07:52:02 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-06-22 07:52:02 +0000 |
| commit | 20f694b8e9ceb404665c2a762eb84f4db4dbe659 (patch) | |
| tree | b21925fc2f347a87ec7194f9c5cf5e3e8c5e81fd /src/GF/Compile/GrammarToCanon.hs | |
| parent | 53989838362cf225c705a4101a41a1e344de1b8a (diff) | |
printname cat bug fixed
Diffstat (limited to 'src/GF/Compile/GrammarToCanon.hs')
| -rw-r--r-- | src/GF/Compile/GrammarToCanon.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/GF/Compile/GrammarToCanon.hs b/src/GF/Compile/GrammarToCanon.hs index 9d93589d6..255cfb53f 100644 --- a/src/GF/Compile/GrammarToCanon.hs +++ b/src/GF/Compile/GrammarToCanon.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/06/17 14:15:18 $ --- > CVS $Author: bringert $ --- > CVS $Revision: 1.21 $ +-- > CVS $Date: 2005/06/22 08:52:02 $ +-- > CVS $Author: aarne $ +-- > CVS $Revision: 1.22 $ -- -- Code generator from optimized GF source code to GFC. ----------------------------------------------------------------------------- @@ -112,7 +112,7 @@ redInfo am (c,info) = errIn ("translating definition of" +++ prt c) $ do trm' <- redCTerm t pr' <- redCTerm pr return [(c', C.CncCat ty' trm' pr')] - _ -> prtBad "cannot reduce rule for" c + _ -> prtBad ("cannot reduce rule for") c CncFun mt ptr ppr -> case (mt,ptr,ppr) of (Just (cat,_), Yes trm, Yes pr) -> do |