gfcc

2004-09-24 16:04:04 +00:00
parent 33ea630d4d
commit ff2a2895c0
5 changed files with 85 additions and 38 deletions
--- a/src/GF/Shell/Commands.hs
+++ b/src/GF/Shell/Commands.hs
@@ -248,6 +248,8 @@ execECommand env c = case c of
  CSelectCand i      -> selectCand cgr i

  CTermCommand c     -> case c of
+                         "reindex" -> \s ->
+                           replaceByTermCommand der gr c (actTree (stateSState s)) s
                         "paraphrase" -> \s ->
                           replaceByTermCommand der gr c (actTree (stateSState s)) s
 ----                          "transfer" -> action2commandNext $