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

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

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

revision 1.162 by mvo, Mon Feb 11 18:06:49 2002 UTC revision 1.163 by dirk, Fri Mar 1 00:19:20 2002 UTC
# Line 1531  scm_void_port (char *mode_str) Line 1531  scm_void_port (char *mode_str)
1531    SCM answer;    SCM answer;
1532    scm_t_port * pt;    scm_t_port * pt;
1533    
1534    answer = scm_alloc_cell (scm_tc16_void_port, 0);    answer = scm_cell (scm_tc16_void_port, 0);
1535    SCM_DEFER_INTS;    SCM_DEFER_INTS;
1536    mode_bits = scm_mode_bits (mode_str);    mode_bits = scm_mode_bits (mode_str);
1537    pt = scm_add_to_port_table (answer);    pt = scm_add_to_port_table (answer);

Legend:
Removed from v.1.162  
changed lines
  Added in v.1.163

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