suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed stdio ports REGISTER_SO

Browse Source 
svn: r15052
This commit is contained in:
Kevin Tew 2009-06-02 16:24:39 +00:00
parent f883264eb6
commit 4370da0192
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mzscheme/src/port.c
View File

@ -465,9 +465,6 @@ scheme_init_port (Scheme_Env *env)
exact_symbol = scheme_intern_symbol("exact");
REGISTER_SO(scheme_orig_stdout_port);
REGISTER_SO(scheme_orig_stderr_port);
REGISTER_SO(scheme_orig_stdin_port);
#ifdef MZ_FDS
REGISTER_SO(fd_input_port_type);
REGISTER_SO(fd_output_port_type);
@ -599,6 +596,9 @@ scheme_init_port (Scheme_Env *env)
void scheme_init_port_places(void)
{
REGISTER_SO(scheme_orig_stdout_port);
REGISTER_SO(scheme_orig_stderr_port);
REGISTER_SO(scheme_orig_stdin_port);
scheme_orig_stdin_port = (scheme_make_stdin
? scheme_make_stdin()
#ifdef USE_OSKIT_CONSOLE