GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-06 01:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

support for proof search with high-order functions

Browse Source
This commit is contained in:
krasimir
2010-10-21 12:47:26 +00:00
parent 8bffe71cd4
commit 82edf7bebb
3 changed files with 83 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -203,13 +203,9 @@ foldForest f g b fcat forest =
instance Selector FId where
splitSelector s = (s,s)
select cat dp = TcM (\abstr s ms -> case Map.lookup cat (cats abstr) of
Just (_,fns) -> iter abstr s ms fns
Nothing -> Fail s (UnknownCat cat))
select cat scope dp = do
gens <- typeGenerators scope cat
TcM (\abstr s ms -> iter s ms gens)
where
iter abstr s ms [] = Zero
iter abstr s ms ((_,fn):fns) = Plus (select_helper fn abstr s ms) (iter abstr s ms fns)
select_helper fn = unTcM $ do
ty <- lookupFunType fn
return (EFun fn,ty)
iter s ms [] = Zero
iter s ms ((_,e,tty):fns) = Plus (Ok s ms (e,tty)) (iter s ms fns)