msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

gt Term

Browse Source
This commit is contained in:
aarne
2004-05-02 08:21:25 +00:00
parent 126753651a
commit 8d4983cdb2
11 changed files with 90 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Grammar/TypeCheck.hs
View File

@@ -243,3 +243,6 @@ exp2termCommand gr f t = errIn ("modifying term" +++ prt t) $ do
exp2termlistCommand :: GFCGrammar -> (Exp -> [Exp]) -> Tree -> [Tree]
exp2termlistCommand gr f = err (const []) fst . mapErr (annotate gr) . f . tree2exp
tree2termlistCommand :: GFCGrammar -> (Tree -> [Exp]) -> Tree -> [Tree]
tree2termlistCommand gr f = err (const []) fst . mapErr (annotate gr) . f