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

last-minute bug fixes

Browse Source
This commit is contained in:
aarne
2004-06-24 14:06:09 +00:00
parent d3db78ad31
commit 3b39607bba
20 changed files with 536 additions and 404 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/UseGrammar/Editing.hs
View File

@@ -5,6 +5,7 @@ import qualified GFC
import TypeCheck
import LookAbs
import AbsCompute
import Macros (errorCat)
import Operations
import Zipper
@@ -35,7 +36,7 @@ actVal :: State -> Val
actVal = valNode . nodeTree . actTree
actCat :: State -> Cat
actCat = errVal undefined . val2cat . actVal ---- undef
actCat = errVal errorCat . val2cat . actVal ---- undef
actAtom :: State -> Atom
actAtom = atomTree . actTree