diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2002-08-08 23:02:28 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2002-08-08 23:02:28 +0000 |
commit | da220f2794a54186721c6ef6ae6a45ba0c3b55a7 (patch) | |
tree | d332465e3de0f761b8a575dae437aac5b5102116 /libguile/vports.c | |
parent | 395b0a341fff3630fffe7d42bf2c570faeeb68e8 (diff) | |
download | guile-da220f2794a54186721c6ef6ae6a45ba0c3b55a7.tar.gz |
("scm_new_port_table_entry"): return a boxed SCM in
stead of scm_t_port*. The function now takes a tag argument.
Diffstat (limited to 'libguile/vports.c')
-rw-r--r-- | libguile/vports.c | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/libguile/vports.c b/libguile/vports.c index 6addd2b0c..977a69e91 100644 --- a/libguile/vports.c +++ b/libguile/vports.c @@ -191,12 +191,10 @@ SCM_DEFINE (scm_make_soft_port, "make-soft-port", 2, 0, 0, SCM_VALIDATE_STRING (2, modes); SCM_DEFER_INTS; - pt = scm_new_port_table_entry (); + z = scm_new_port_table_entry (scm_tc16_sfport); scm_port_non_buffer (pt); - z = scm_cell (scm_tc16_sfport | scm_mode_bits (SCM_STRING_CHARS (modes)), 0); - SCM_SETPTAB_ENTRY (z, pt); - pt->port = z; - + SCM_SET_CELL_TYPE (z, scm_tc16_sfport | scm_mode_bits (SCM_STRING_CHARS (modes))); + SCM_SETSTREAM (z, SCM_UNPACK (pv)); SCM_ALLOW_INTS; return z; |