summaryrefslogtreecommitdiff
path: root/libguile/init.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/init.c')
-rw-r--r--libguile/init.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/init.c b/libguile/init.c
index 35fbedb8b..7dec116fa 100644
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -165,8 +165,7 @@ stream_body (void *data)
{
stream_body_data *body_data = (stream_body_data *) data;
SCM port = scm_fdes_to_port (body_data->fdes, body_data->mode, SCM_BOOL_F);
-
- SCM_REVEALED (port) = 1;
+ scm_set_port_revealed_x (port, SCM_INUM1);
return port;
}