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

Fixed bug in toGFCC: cflags where mistakenly taken from aflags.

Browse Source
This commit is contained in:
bringert
2007-12-21 17:24:59 +00:00
parent 645a7db1e2
commit 24c456cadf
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/GFCC/Raw/ConvertGFCC.hs
View File

@@ -46,7 +46,7 @@ toGFCC (Grm [
App (CId "param") params App (CId "param") params
]) = (lang, ]) = (lang,
Concr { Concr {
cflags = fromAscList [(f,v) | App f [AStr v] <- afls], cflags = fromAscList [(f,v) | App f [AStr v] <- fls],
lins = fromAscList [(f,toTerm v) | App f [v] <- ls], lins = fromAscList [(f,toTerm v) | App f [v] <- ls],
opers = fromAscList [(f,toTerm v) | App f [v] <- ops], opers = fromAscList [(f,toTerm v) | App f [v] <- ops],
lincats = fromAscList [(f,toTerm v) | App f [v] <- lincs], lincats = fromAscList [(f,toTerm v) | App f [v] <- lincs],