generation in jgf

2026-04-22 11:19:32 -06:00 · 2004-05-02 12:36:19 +00:00
parent 8d4983cdb2
commit b1b9e00ce9
3 changed files with 4 additions and 5 deletions
--- a/src/GF/UseGrammar/Custom.hs
+++ b/src/GF/UseGrammar/Custom.hs
@@ -208,9 +208,8 @@ customTermCommand =
  ,(strCI "generate",   \g t -> let gr = grammar g
                                    cat = actCat $ tree2loc t --- not needed
                                in
-                                  tree2termlistCommand gr
-                                    (generateTrees gr cat 2
-                                      Nothing . Just) t)
+                         [tr | t <- generateTrees gr cat 2 Nothing (Just t), 
+                               Ok tr <- [annotate gr $ MM.qualifTerm (absId g) t]])

  ,(strCI "typecheck",  \g t -> let gr = grammar g in
                                  err (const []) (return . const t)