gt Term

2026-04-18 17:29:32 -06:00 · 2004-05-02 08:21:25 +00:00
parent 487571a685
commit 54947d3e4c
11 changed files with 90 additions and 23 deletions
--- a/src/GF/Shell/Commands.hs
+++ b/src/GF/Shell/Commands.hs
@@ -238,6 +238,8 @@ execECommand env c = case c of
                           replaceByTermCommand der gr c (actTree (stateSState s)) s
 ----                          "transfer" -> action2commandNext $
 ----                                       transferSubTree (stateTransferFun sgr) gr
+                         "generate" -> \s ->
+                           replaceByTermCommand der gr c (actTree (stateSState s)) s
                         _ -> replaceByEditCommand gr c

  CAddOption o       -> changeStOptions (addOption o)