From 4c3c77a722996633ec810a7fa547f52872124074 Mon Sep 17 00:00:00 2001
From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Wed, 12 Jul 2006 12:13:45 +0000
Subject: [PATCH] GrafiteAst.Print (unused) removed.

---
 helm/software/components/grafite/grafiteAst.ml                 | 1 -
 helm/software/components/grafite/grafiteAstPp.ml               | 1 -
 helm/software/components/grafite_parser/grafiteDisambiguate.ml | 3 +--
 helm/software/components/grafite_parser/grafiteParser.ml       | 1 -
 helm/software/matita/matitaScript.ml                           | 1 -
 5 files changed, 1 insertion(+), 6 deletions(-)

diff --git a/helm/software/components/grafite/grafiteAst.ml b/helm/software/components/grafite/grafiteAst.ml
index 6c6b3786f..03b67ade3 100644
--- a/helm/software/components/grafite/grafiteAst.ml
+++ b/helm/software/components/grafite/grafiteAst.ml
@@ -104,7 +104,6 @@ type 'term macro =
   | WLocate of loc * string
   | WElim of loc * 'term
   (* real macros *)
-  | Print of loc * string
   | Check of loc * 'term 
   | Hint of loc
   | Quit of loc
diff --git a/helm/software/components/grafite/grafiteAstPp.ml b/helm/software/components/grafite/grafiteAstPp.ml
index c5bbe8f19..55736e862 100644
--- a/helm/software/components/grafite/grafiteAstPp.ml
+++ b/helm/software/components/grafite/grafiteAstPp.ml
@@ -182,7 +182,6 @@ let pp_macro ~term_pp =
   (* real macros *)
   | Check (_, term) -> sprintf "Check %s" (term_pp term)
   | Hint _ -> "hint"
-  | Print (_, name) -> sprintf "Print \"%s\"" name
   | Quit _ -> "Quit"
 
 let pp_associativity = function
diff --git a/helm/software/components/grafite_parser/grafiteDisambiguate.ml b/helm/software/components/grafite_parser/grafiteDisambiguate.ml
index 396d169e7..4ced7a0af 100644
--- a/helm/software/components/grafite_parser/grafiteDisambiguate.ml
+++ b/helm/software/components/grafite_parser/grafiteDisambiguate.ml
@@ -326,5 +326,4 @@ let disambiguate_macro
    | GrafiteAst.Hint _
    | GrafiteAst.WLocate _ as macro ->
       metasenv,macro
-   | GrafiteAst.Quit _
-   | GrafiteAst.Print _ -> assert false
+   | GrafiteAst.Quit _ -> assert false
diff --git a/helm/software/components/grafite_parser/grafiteParser.ml b/helm/software/components/grafite_parser/grafiteParser.ml
index 1c85b567d..834cbcf41 100644
--- a/helm/software/components/grafite_parser/grafiteParser.ml
+++ b/helm/software/components/grafite_parser/grafiteParser.ml
@@ -362,7 +362,6 @@ EXTEND
         GrafiteAst.WElim (loc, t)
     | [ IDENT "whelp"; IDENT "hint" ] ; t = term -> 
         GrafiteAst.WHint (loc,t)
-    | [ IDENT "print" ]; name = QSTRING -> GrafiteAst.Print (loc, name)
     ]
   ];
   alias_spec: [
diff --git a/helm/software/matita/matitaScript.ml b/helm/software/matita/matitaScript.ml
index a6842d832..91182d6ad 100644
--- a/helm/software/matita/matitaScript.ml
+++ b/helm/software/matita/matitaScript.ml
@@ -290,7 +290,6 @@ let rec eval_macro include_paths (buffer : GText.buffer) guistuff lexicon_status
       [], parsed_text_length
   (* TODO *)
   | TA.Quit _ -> failwith "not implemented"
-  | TA.Print (_,kind) -> failwith "not implemented"
                                 
 and eval_executable include_paths (buffer : GText.buffer) guistuff
 lexicon_status grafite_status user_goal unparsed_text skipped_txt nonskipped_txt
-- 
2.39.2