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

fixed typo which broke the parsing with -openclass

Browse Source
This commit is contained in:
krasimir
2010-10-20 09:04:48 +00:00
parent 5acec7be21
commit 6e23da41a2
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/PGF/Forest.hs
View File

@@ -135,7 +135,7 @@ getAbsTrees (Forest abs cnc forest root) arg@(PArg _ fid) ty dp =
x <- foldForest (\funid args trees -> x <- foldForest (\funid args trees ->
do let CncFun fn lins = cncfuns cnc ! funid do let CncFun fn lins = cncfuns cnc ! funid
case isLindefCId fn of case isLindefCId fn of
Just _ -> do arg <- go (Set.insert fid rec_) scope mb_tty arg Just _ -> do arg <- go (Set.insert fid rec_) scope mb_tty (head args)
return (mkAbs arg) return (mkAbs arg)
Nothing -> do ty_fn <- lookupFunType fn Nothing -> do ty_fn <- lookupFunType fn
(e,tty0) <- foldM (\(e1,tty) arg -> goArg (Set.insert fid rec_) scope fid e1 arg tty) (e,tty0) <- foldM (\(e1,tty) arg -> goArg (Set.insert fid rec_) scope fid e1 arg tty)