/[guile]/guile/guile-core/libguile/init.c
ViewVC logotype

Diff of /guile/guile-core/libguile/init.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.133 by mvo, Mon Feb 11 18:06:49 2002 UTC revision 1.134 by ghouston, Sat Apr 20 20:57:09 2002 UTC
# Line 311  scm_init_standard_ports () Line 311  scm_init_standard_ports ()
311       buffered input on stdin can reset \ex{(current-input-port)} to       buffered input on stdin can reset \ex{(current-input-port)} to
312       block buffering for higher performance.  */       block buffering for higher performance.  */
313    
314    scm_def_inp    scm_cur_inp
315      = scm_standard_stream_to_port (0,      = scm_standard_stream_to_port (0,
316                                     isatty (0) ? "r0" : "r",                                     isatty (0) ? "r0" : "r",
317                                     "standard input");                                     "standard input");
318    scm_def_outp = scm_standard_stream_to_port (1,    scm_cur_outp = scm_standard_stream_to_port (1,
319                                                isatty (1) ? "w0" : "w",                                                isatty (1) ? "w0" : "w",
320                                                "standard output");                                                "standard output");
321    scm_def_errp = scm_standard_stream_to_port (2,    scm_cur_errp = scm_standard_stream_to_port (2,
322                                                isatty (2) ? "w0" : "w",                                                isatty (2) ? "w0" : "w",
323                                                "standard error");                                                "standard error");
324    
   scm_cur_inp = scm_def_inp;  
   scm_cur_outp = scm_def_outp;  
   scm_cur_errp = scm_def_errp;  
325    scm_cur_loadp = SCM_BOOL_F;    scm_cur_loadp = SCM_BOOL_F;
326  }  }
327    

Legend:
Removed from v.1.133  
changed lines
  Added in v.1.134

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26