Ajout primitive get_current_environment pour la trace.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@272 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 6 insertions, 0 deletions

diff --git a/byterun/meta.c b/byterun/meta.c
index 4bb69b282..01d377dfd 100644
--- a/byterun/meta.c
+++ b/byterun/meta.c
@@ -22,6 +22,7 @@
 #include "misc.h"
 #include "mlvalues.h"
 #include "prims.h"
+#include "stacks.h"
 
 value get_global_data(unit)     /* ML */
      value unit;
@@ -63,3 +64,8 @@ value available_primitives()    /* ML */
 {
   return copy_string_array(names_of_cprim);
 }
+
+value get_current_environment() /* ML */
+{
+  return *extern_sp;
+}