diff options
Diffstat (limited to 'libguile/ports.c')
-rw-r--r-- | libguile/ports.c | 5 |
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); } /* |