summaryrefslogtreecommitdiff
path: root/libguile/vports.c
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2002-08-08 23:02:28 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2002-08-08 23:02:28 +0000
commitda220f2794a54186721c6ef6ae6a45ba0c3b55a7 (patch)
treed332465e3de0f761b8a575dae437aac5b5102116 /libguile/vports.c
parent395b0a341fff3630fffe7d42bf2c570faeeb68e8 (diff)
downloadguile-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.c8
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;