From f3eaf2869e84c942d56a7fe0cc459d9943e4b059 Mon Sep 17 00:00:00 2001
From: aspiwack <aspiwack@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Tue, 18 Dec 2007 12:19:12 +0000
Subject: Nettoyage de code en vue de la release. Plus de Warning: Unused
 Variable, et plus de trucs useless qui traînaient par ma faute (y compris
 dans le noyau, la honte).
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10388 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/cbytecodes.ml | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'kernel/cbytecodes.ml')

diff --git a/kernel/cbytecodes.ml b/kernel/cbytecodes.ml
index 84d04d67e..ceba6e82a 100644
--- a/kernel/cbytecodes.ml
+++ b/kernel/cbytecodes.ml
@@ -235,7 +235,3 @@ type block =
  
 let draw_instr c =
   fprintf std_formatter "@[<v 0>%a@]" instruction_list c
-
-let string_of_instr c =
-  fprintf str_formatter "@[<v 0>%a@]" instruction_list c;
-  flush_str_formatter ()
-- 
cgit v1.2.3