From a3efdeb359bd0a015dfe382359f2e064b877a3da Mon Sep 17 00:00:00 2001
From: Dmitry Boulytchev <dboulytchev@gmail.com>
Date: Wed, 6 Dec 2023 19:45:29 +0300
Subject: [PATCH] stdout/stderr

---
 runtime/Std.i     | 2 ++
 runtime/runtime.c | 4 ++++
 2 files changed, 6 insertions(+)

diff --git a/runtime/Std.i b/runtime/Std.i
index dbe2ff36d..8810f9db1 100644
--- a/runtime/Std.i
+++ b/runtime/Std.i
@@ -2,6 +2,8 @@ F,assert;
 F,getEnv;
 F,system;
 V,sysargs;
+V,stdout;
+V,stderr;
 F,stringInt;
 F,makeArray;
 F,string;
diff --git a/runtime/runtime.c b/runtime/runtime.c
index c74962d53..8bf2b7f6a 100644
--- a/runtime/runtime.c
+++ b/runtime/runtime.c
@@ -60,6 +60,8 @@ extern void *Bsexp (int n, ...);
 extern int   LtagHash (char *);
 
 void *global_sysargs;
+void *global_stdout;
+void *global_stderr;
 
 // Gets a raw data_header
 extern int LkindOf (void *p) {
@@ -1249,6 +1251,8 @@ extern void set_args (int argc, char *argv[]) {
   POST_GC();
 
   global_sysargs = p;
+  global_stdout = stdout;
+  global_stderr = stderr;
 
   push_extra_root((void **)&global_sysargs);
 }