Parent Directory | Revision Log | 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); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |