VM: better init of stdin, stdout and stderr

[factor.git] / vm / factor.cpp

diff --git a/vm/factor.cpp b/vm/factor.cpp
index 89130caced6e27440ac1301ec56870c9646114f6..7ef57d1f1270f134379fa8d9f55a96dfc3a415c8 100644 (file)
--- a/vm/factor.cpp
+++ b/vm/factor.cpp
@@ -71,13 +71,15 @@ void factor_vm::init_factor(vm_parameters* p) {
   init_contexts(p->datastack_size, p->retainstack_size, p->callstack_size);
   callbacks = new callback_heap(p->callback_size, this);
   load_image(p);
-  init_c_io();
   max_pic_size = (int)p->max_pic_size;
   special_objects[OBJ_CELL_SIZE] = tag_fixnum(sizeof(cell));
   special_objects[OBJ_ARGS] = false_object;
   special_objects[OBJ_EMBEDDED] = false_object;
 
   cell aliens[][2] = {
+    {OBJ_STDIN,           (cell)stdin},
+    {OBJ_STDOUT,          (cell)stdout},
+    {OBJ_STDERR,          (cell)stderr},
     {OBJ_CPU,             (cell)FACTOR_CPU_STRING},
     {OBJ_EXECUTABLE,      (cell)safe_strdup(p->executable_path)},
     {OBJ_IMAGE,           (cell)safe_strdup(p->image_path)},