paraphrase works a little better now ; added examples/paraphrase for testing

2008-10-14 11:19:30 +00:00
parent e94f1cf2c7
commit df08e52d5c
5 changed files with 86 additions and 8 deletions
--- a/src/GF/Command/TreeOperations.hs
+++ b/src/GF/Command/TreeOperations.hs
@@ -25,7 +25,7 @@ allTreeOps pgf = [
   ("compute",("compute by using semantic definitions (def)",
      map (compute pgf))),
   ("paraphrase",("paraphrase by using semantic definitions (def)",
-      concatMap (paraphrase pgf))),
+      nub . concatMap (paraphrase pgf))),
   ("smallest",("sort trees from smallest to largest, in number of nodes",
      smallest)),
   ("typecheck",("type check and solve metavariables; reject if incorrect",