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

math API; lock field warnings

Browse Source
This commit is contained in:
aarne
2006-01-31 17:10:31 +00:00
parent 755a3d4ccc
commit e59bad1f19
2 changed files with 25 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/CF/CanonToCF.hs
View File

@@ -128,6 +128,8 @@ term2CFItems m t = errIn "forming cf items" $ case t of
its <- mapM t2c ts
tryMkCFTerm (concat its)
P (S c _) _ -> t2c c --- w-around for bug in Compute? AR 31/1/2006
P arg s -> extrR arg s
K (KS s) -> return [[PTerm (RegAlts [s]) | not (null s)]]