diff options
| author | herbelin | 2000-11-26 18:53:52 +0000 |
|---|---|---|
| committer | herbelin | 2000-11-26 18:53:52 +0000 |
| commit | 98133e7cbbe9e97ac31437e59bc4f534f02360ce (patch) | |
| tree | 5bd72ef924a849d276dd42a22895145ff60f520c /toplevel | |
| parent | 9e1a10bea5e17b8e1c28f801c812a2ba51858e1f (diff) | |
Prise en compte noms longs dans divers fonctions de Print
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@959 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/vernacentries.ml | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 1f0524aaf9..b570012378 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -653,20 +653,19 @@ let _ = let _ = add "PrintId" (function - | [VARG_IDENTIFIER id] -> (fun () -> mSG(print_name id)) + | [VARG_QUALID qid] -> (fun () -> mSG(print_name qid)) | _ -> bad_vernac_args "PrintId") let _ = add "PrintOpaqueId" (function - | [VARG_IDENTIFIER id] -> (fun () -> mSG(print_opaque_name id)) + | [VARG_QUALID qid] -> (fun () -> mSG(print_opaque_name qid)) | _ -> bad_vernac_args "PrintOpaqueId") let _ = add "PrintSec" (function - | [VARG_IDENTIFIER id] -> - (fun () -> mSG(print_sec_context_typ (string_of_id id))) + | [VARG_QUALID qid] -> (fun () -> mSG(print_sec_context_typ qid)) | _ -> bad_vernac_args "PrintSec") let _ = declare_async_bool_option @@ -1520,7 +1519,7 @@ let _ = if (string_of_id t) = "Tables" then print_tables () else - mSG(print_name t)) + mSG(print_name (make_qualid [] (string_of_id t)))) | _ -> bad_vernac_args "TableField") |