msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Making cf2gf to work...

Browse Source
This commit is contained in:
aarne
2004-03-24 15:31:38 +00:00
parent 4a34119ad0
commit 0a28c77f6d
6 changed files with 9 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -55,7 +55,7 @@ getCFRule mo s = getcf (wrds s) where
fun : cat : _ : its = words s
mkIt ('"':w@(_:_)) = atomCFTerm (string2CFTok (init w))
mkIt w = CFNonterm (string2CFCat mo w)
getcf _ = Bad "invalid rule"
getcf _ = Bad (" invalid rule:" +++ s)
wrds = takeWhile (/= ";") . words -- to permit semicolon in the end
pCF :: String -> String -> Err CF