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

some bug fixes in type check and solve

Browse Source
This commit is contained in:
aarne
2004-11-01 21:41:18 +00:00
parent 42ff99469a
commit 2bd22e078a
6 changed files with 73 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/GF/UseGrammar/Custom.hs
View File

@@ -264,12 +264,10 @@ customTermCommand =
in
[tr | t <- generateTrees gr False cat 2 Nothing (Just t),
Ok tr <- [annotate gr $ MM.qualifTerm (absId g) t]])
,(strCI "typecheck", \g t -> let gr = grammar g in
err (const []) (return . const t)
(checkIfValidExp gr (tree2exp t)))
,(strCI "typecheck", \g t -> err (const [t]) (return . loc2tree)
(reCheckState (grammar g) (tree2loc t)))
,(strCI "solve", \g t -> err (const [t]) (return . loc2tree)
(uniqueRefinements (grammar g) (tree2loc t)))
(solveAll (grammar g) (tree2loc t)))
,(strCI "context", \g t -> err (const [t]) (return . loc2tree)
(contextRefinements (grammar g) (tree2loc t)))
,(strCI "reindex", \g t -> let gr = grammar g in