diff options
| author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-09-22 00:43:52 +0000 |
|---|---|---|
| committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-09-22 00:43:52 +0000 |
| commit | 0c32d76caf645345489f782e68ac3f4859692a00 (patch) | |
| tree | c3c2c902d4e3c82aaab40afb47ad44a44de631a1 /libguile/vports.c | |
| parent | 25eaf21abcf56b3af7f470592f4ac941a765dee5 (diff) | |
| download | guile-0c32d76caf645345489f782e68ac3f4859692a00.tar.gz | |
* init.c (scm_boot_guile_1): Added scm_init_objects ().
Added #include "objects.h"
* eval.c (scm_makprom): Added SCM_DEFER_INTS and SCM_ALLOW_INTS.
Add #include "feature.h".
* ports.h (SCM_EOF_OBJECT_P): New macro predicate.
This test is needed at many places in the code and should be
abstracted. (Motivated by the need of this test in libguiletk.)
* ports.c (scm_eof_object_p), vports.c (sfgetc), strports.c
(scm_eval_string), load.c (scm_primitive_load,
scm_read_and_eval_x), gh_eval.c (gh_eval_str):
Use SCM_EOF_OBJECT_P.
* eval.c (scm_init_eval): Add feature `delay'.
Diffstat (limited to 'libguile/vports.c')
| -rw-r--r-- | libguile/vports.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/vports.c b/libguile/vports.c index 16489f190..f873ae8df 100644 --- a/libguile/vports.c +++ b/libguile/vports.c @@ -147,7 +147,7 @@ sfgetc (p) SCM ans; ans = scm_apply (SCM_VELTS (p)[3], SCM_EOL, SCM_EOL); errno = 0; - if (SCM_FALSEP (ans) || SCM_EOF_VAL == ans) + if (SCM_FALSEP (ans) || SCM_EOF_OBJECT_P (ans)) return EOF; SCM_ASSERT (SCM_ICHRP (ans), ans, SCM_ARG1, "getc"); return SCM_ICHR (ans); |