From 34b839c0f9e7f5a3a850d27c43b3160573ff2c00 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 31 Dec 2009 11:02:26 +0000 Subject: morpho analysis with -missing flag, shows words outside lexicon; also invoked if parsing fails; also added pg -words to show the list of words --- src/runtime/haskell/PGF/Linearize.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/runtime/haskell/PGF/Linearize.hs') diff --git a/src/runtime/haskell/PGF/Linearize.hs b/src/runtime/haskell/PGF/Linearize.hs index fdd4cecb5..80d1f1acf 100644 --- a/src/runtime/haskell/PGF/Linearize.hs +++ b/src/runtime/haskell/PGF/Linearize.hs @@ -75,7 +75,7 @@ linTree pgf lang e = lin (expr2tree e) Nothing Just (DTyp _ cat _) -> compute pgf lang [K (KS (showCId x))] (lookMap tm0 cat (lindefs cnc)) Nothing -> TM (showCId x) lin (Meta i) mty = case mty of - Just (DTyp _ cat _) -> compute pgf lang [K (KS (show i))] (lookMap tm0 cat (lindefs cnc)) + Just (DTyp _ cat _) -> compute pgf lang [K (KS ("?" ++ show i))] (lookMap tm0 cat (lindefs cnc)) Nothing -> TM (show i) variants :: [Term] -> Term -- cgit v1.2.3