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

generation in jgf

Browse Source
This commit is contained in:
aarne
2004-05-02 12:36:19 +00:00
parent 54947d3e4c
commit de3ad4cbd7
3 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Shell/Commands.hs
View File

@@ -325,7 +325,7 @@ mkRefineMenuAll env sstate =
_ -> b
ifShort = ifOpt sizeDisplay "short"
ifTyped t = ifOpt typeDisplay "typed" t ""
prOrLinExp t = prt_ t ----
prOrLinExp t = err (const $ prt_ t) prOrLinTree $ annotateInState cgr t state
prOrLinRef t = case t of
G.Q m f -> printname env sstate (m,f)
G.QC m f -> printname env sstate (m,f)