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

adding support for 2nd order functions in SimpleGFC format

Browse Source
This commit is contained in:
peb
2006-04-04 09:33:22 +00:00
parent f1000ca8c3
commit c437f63404
6 changed files with 71 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Formalism/GCFG.hs
View File

@@ -42,7 +42,7 @@ instance (Print c, Print n, Print l, Print t) => Print (Rule n c l t) where
instance (Print c, Print n) => Print (Abstract c n) where
prt (Abs cat args name) = prt name ++ ". " ++ prt cat ++
( if null args then ""
else " -> " ++ prtSep " " args )
else " --> " ++ prtSep " " args )
instance (Print l, Print t) => Print (Concrete l t) where
prt (Cnc lcat args term) = prt term