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

This commit is contained in:
bringert
2007-12-21 17:24:59 +00:00
parent 645a7db1e2
commit 24c456cadf

View File

@@ -46,7 +46,7 @@ toGFCC (Grm [
App (CId "param") params
]) = (lang,
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],
opers = fromAscList [(f,toTerm v) | App f [v] <- ops],
lincats = fromAscList [(f,toTerm v) | App f [v] <- lincs],