summaryrefslogtreecommitdiff
path: root/libguile/print.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/print.c')
-rw-r--r--libguile/print.c8
1 files changed, 0 insertions, 8 deletions
diff --git a/libguile/print.c b/libguile/print.c
index 514a725c2..ff0dab3ec 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -1527,11 +1527,7 @@ scm_write (SCM obj, SCM port)
port = scm_current_output_port ();
SCM_ASSERT (scm_valid_oport_value_p (port), port, SCM_ARG2, s_write);
-
- scm_dynwind_begin (0);
- scm_dynwind_lock_port (SCM_COERCE_OUTPORT (port));
scm_prin1 (obj, port, 1);
- scm_dynwind_end ();
return SCM_UNSPECIFIED;
}
@@ -1546,11 +1542,7 @@ scm_display (SCM obj, SCM port)
port = scm_current_output_port ();
SCM_ASSERT (scm_valid_oport_value_p (port), port, SCM_ARG2, s_display);
-
- scm_dynwind_begin (0);
- scm_dynwind_lock_port (SCM_COERCE_OUTPORT (port));
scm_prin1 (obj, port, 0);
- scm_dynwind_end ();
return SCM_UNSPECIFIED;
}