documenting testgf3

2008-02-21 08:04:43 +00:00
parent 7412c24267
commit c764a758e1
8 changed files with 390 additions and 9 deletions
--- a/src/GF/Devel/Grammar/Compute.hs
+++ b/src/GF/Devel/Grammar/Compute.hs
@@ -283,7 +283,7 @@ computeTermOpt rec gr = comp where
       return $ T i cs'

     T i cs -> do
-       pty0 <- getTableType i
+       pty0 <- errIn (prt t) $ getTableType i
       ptyp <- comp g pty0
       case allParamValues gr ptyp of
         Ok vs -> do