summaryrefslogtreecommitdiff
path: root/libguile/read.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/read.c')
-rw-r--r--libguile/read.c5
1 files changed, 0 insertions, 5 deletions
diff --git a/libguile/read.c b/libguile/read.c
index ca9694f89..20de0bb9b 100644
--- a/libguile/read.c
+++ b/libguile/read.c
@@ -2252,9 +2252,6 @@ set_port_read_option (SCM port, int option, int new_value)
new_value &= READ_OPTION_MASK;
- scm_dynwind_begin (0);
- scm_dynwind_lock_port (port);
-
scm_read_options = scm_i_port_property (port, sym_port_read_options);
if (scm_is_unsigned_integer (scm_read_options, 0, READ_OPTIONS_MAX_VALUE))
read_options = scm_to_uint (scm_read_options);
@@ -2264,8 +2261,6 @@ set_port_read_option (SCM port, int option, int new_value)
read_options |= new_value << option;
scm_read_options = scm_from_uint (read_options);
scm_i_set_port_property_x (port, sym_port_read_options, scm_read_options);
-
- scm_dynwind_end ();
}
/* Set OPTS and PORT's case-insensitivity according to VALUE. */