X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=src%2Fast.mli;h=cf776ebe7e0e1e71c0dc70b31e1984bc70bee3e4;hb=54c8ad92025a9c77c2b10644499b3944e1299187;hp=df6c60f2b9a2f61b920c85d56c982caf37870276;hpb=c07380a3a4dca44a29df4cb09265d10442c1d06f;p=goals.git

diff --git a/src/ast.mli b/src/ast.mli
index df6c60f..cf776eb 100644
--- a/src/ast.mli
+++ b/src/ast.mli
@@ -65,11 +65,11 @@ and expr =
 and constant =
   | CString of string
 and goal = param_decl list * pattern list * expr list * code option
-and func = param_decl list * returning * code
+and func = param_decl list * returning * bool * code
 and tactic = param_decl list * code
 and param_decl = id             (** goal/func/tactic parameter. *)
 and id = string
-and code = substs
+and code = substs * bool        (** code + quiet flag *)
 and returning = RetExpr | RetStrings | RetString
 and substs = subst list
 and subst =