GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-14 07:19:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

Restored read term in editor.

Browse Source
This commit is contained in:
aarne
2003-10-03 06:31:34 +00:00
parent 3f32852191
commit cfe8ebc1fb
4 changed files with 11 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/GF/Shell/Commands.hs
View File

@@ -222,14 +222,11 @@ execECommand env c = case c of
CAlphaConvert s -> action2commandNext $ \x ->
string2varPair s >>= \xy -> alphaConvert cgr xy x
{- ----
CRefineWithTree s -> action2commandNext $ \x ->
(string2treeErr cgr s x >>=
(string2treeInState gr s x >>=
\t -> refineWithTree der cgr t x)
CRefineParse str -> \s -> refineByTrees der cgr
(parseAny agrs (cat2CFCat (actCat (stateSState s))) str) s
-}
CRefineParse str -> \s ->
let cat = cat2CFCat (qualifTop sgr (actCat (stateSState s)))
ts = parseAny agrs cat str