diff options
-rw-r--r-- | libguile/ports.c | 18 | ||||
-rw-r--r-- | libguile/ports.h | 1 |
2 files changed, 0 insertions, 19 deletions
diff --git a/libguile/ports.c b/libguile/ports.c index 4aeb1d6a2..0126c2f25 100644 --- a/libguile/ports.c +++ b/libguile/ports.c @@ -155,24 +155,6 @@ scm_char_ready_p (port) -SCM_PROC (s_ungetc_char_ready_p, "ungetc-char-ready?", 1, 0, 0, scm_ungetc_char_ready_p); - -SCM -scm_ungetc_char_ready_p (port) - SCM port; -{ - if (SCM_UNBNDP (port)) - port = scm_cur_inp; - else - SCM_ASSERT (SCM_NIMP (port) && SCM_OPINPORTP (port), port, SCM_ARG1, s_ungetc_char_ready_p); - return (SCM_CRDYP (port) - ? SCM_BOOL_T - : SCM_BOOL_F); -} - - - - /* {Standard Ports} */ diff --git a/libguile/ports.h b/libguile/ports.h index 9022dd209..f89c92be6 100644 --- a/libguile/ports.h +++ b/libguile/ports.h @@ -164,7 +164,6 @@ extern SCM scm_markstream SCM_P ((SCM ptr)); extern long scm_newptob SCM_P ((scm_ptobfuns *ptob)); extern void scm_fflush SCM_P ((SCM port)); extern SCM scm_char_ready_p SCM_P ((SCM port)); -extern SCM scm_ungetc_char_ready_p SCM_P ((SCM port)); extern SCM scm_current_input_port SCM_P ((void)); extern SCM scm_current_output_port SCM_P ((void)); extern SCM scm_current_error_port SCM_P ((void)); |