summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/ports.c18
-rw-r--r--libguile/ports.h1
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));