diff options
| author |  vgross <vgross@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-05-31 22:22:08 +0000 |
|---|---|---|
| committer | vgross <vgross@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-05-31 22:22:08 +0000 |
| commit | 6b54af467dd9e4e26205e0f16e0c924240fadfe0 (patch) | |
| tree | e75b7782701363820dc58df4fb4b9754be5372c1 /ide/command_windows.ml | |
| parent | 509a55ed055a9d30e8c1501946a9bbeb19ecdbf3 (diff) | |
deporting Coq specific code from ide to toplevel.
Still messy.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13040 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/command_windows.ml')
| -rw-r--r-- | ide/command_windows.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ide/command_windows.ml b/ide/command_windows.ml index 92dcd8222..beb8ebb52 100644 --- a/ide/command_windows.ml +++ b/ide/command_windows.ml @@ -104,9 +104,9 @@ object(self) then com ^ " " else com ^ " " ^ entry#text ^" . " in try - ignore(Coq.interp Coq.dummy_coqtop false phrase); + Coq.raw_interp Coq.dummy_coqtop phrase; result#buffer#set_text - ("Result for command " ^ phrase ^ ":\n" ^ Ideutils.read_stdout ()) + ("Result for command " ^ phrase ^ ":\n" ^ (Coq.read_stdout Coq.dummy_coqtop)) with e -> let (s,loc) = Coq.process_exn e in assert (Glib.Utf8.validate s); |