summaryrefslogtreecommitdiff
path: root/libguile/ports.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/ports.c')
-rw-r--r--libguile/ports.c5
1 files changed, 5 insertions, 0 deletions
diff --git a/libguile/ports.c b/libguile/ports.c
index 9eb6d3b9c..c0e13f374 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -2847,6 +2847,11 @@ scm_init_ports ()
(scm_from_int ((int) SCM_FAILED_CONVERSION_QUESTION_MARK)));
scm_conversion_strategy_init = 1;
+ /* These bindings are used when boot-9 turns `current-input-port' et
+ al into parameters. They are then removed from the guile module. */
+ scm_c_define ("%current-input-port-fluid", cur_inport_fluid);
+ scm_c_define ("%current-output-port-fluid", cur_outport_fluid);
+ scm_c_define ("%current-error-port-fluid", cur_errport_fluid);
}
/*