diff options
Diffstat (limited to 'src-3.0/GFI.hs')
| -rw-r--r-- | src-3.0/GFI.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src-3.0/GFI.hs b/src-3.0/GFI.hs index ae2c2440d..5769d0550 100644 --- a/src-3.0/GFI.hs +++ b/src-3.0/GFI.hs @@ -34,8 +34,9 @@ loop gfenv0 = do -- special commands, requiring source grammar in env "cc":ws -> do - let t = pTerm (unwords ws) >>= checkTerm sgr >>= computeTerm sgr - err putStrLn (putStrLn . prTerm) t ---- make pipable + let (opts,term) = getOptions "-" ws + let t = pTerm (unwords term) >>= checkTerm sgr >>= computeTerm sgr + err putStrLn (putStrLn . showTerm opts) t ---- make pipable loopNewCPU gfenv "i":args -> do |