diff options
author | Andy Wingo <wingo@pobox.com> | 2016-04-30 14:44:20 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-04-30 14:44:20 +0200 |
commit | 555c934726636f1dfd5e1048cda4c31fbeaaa3f4 (patch) | |
tree | 7bd7df389d89b0da7c6de32fe1f0371008e86662 /libguile | |
parent | 8bad621fec65d58768a38661278165ae259fabce (diff) | |
download | guile-555c934726636f1dfd5e1048cda4c31fbeaaa3f4.tar.gz |
Refactor way the-eof-object is defined
* libguile/ports.c (scm_init_ice_9_ports): Define the-eof-object here.
Update a comment.
* module/ice-9/ports.scm: Use the-eof-object definition from C.
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/ports.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/ports.c b/libguile/ports.c index 8c8276b26..058d7dcf3 100644 --- a/libguile/ports.c +++ b/libguile/ports.c @@ -3145,13 +3145,13 @@ scm_init_ice_9_ports (void) { #include "libguile/ports.x" + scm_c_define ("the-eof-object", SCM_EOF_VAL); + /* lseek() symbols. */ scm_c_define ("SEEK_SET", scm_from_int (SEEK_SET)); scm_c_define ("SEEK_CUR", scm_from_int (SEEK_CUR)); scm_c_define ("SEEK_END", scm_from_int (SEEK_END)); - /* 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); |