small progress on PMCFG

2021-10-08 19:25:21 +02:00
parent 15e3ca9acd
commit 62d5ed5b42
7 changed files with 82 additions and 40 deletions
--- a/src/compiler/GF/Command/SourceCommands.hs
+++ b/src/compiler/GF/Command/SourceCommands.hs
@@ -258,7 +258,7 @@ checkComputeTerm os sgr t =
     t <- renameSourceTerm sgr mo t
     (t,_) <- inferLType sgr [] t                                
     let opts = modifyFlags (\fs->fs{optTrace=isOpt "trace" os})
-     fmap evalStr (normalForm sgr (L NoLoc identW) t)
+     fmap evalStr (normalForm sgr t)
  where
    -- ** Try to compute pre{...} tokens in token sequences
    evalStr t =