GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-06 17:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

don't count app nodes in term size

Browse Source
This commit is contained in:
aarne
2011-09-26 13:56:39 +00:00
parent ff4929e25e
commit a83b6bea62
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GFI.hs
View File

@@ -191,7 +191,7 @@ execute1 opts gfenv0 s0 =
ops <- case xs of
_:_ -> do
let ts = [t | Right t <- map (runP pExp . encodeUnicode utf8) xs]
err error (return . nub . (ts ++) . concat) $ mapM (constantDepsTerm sgr) ts
err error (return . nub . concat) $ mapM (constantDepsTerm sgr) ts
_ -> error "expected one or more qualified constants as argument"
let prTerm = showTerm sgr TermPrintDefault Qualified
let size = sizeConstant sgr