* ports.h: Removed prototype for scm_ungetc_char_ready_p.

* ports.c: Removed `ungetc-char-ready?'.

diff --git a/libguile/ports.c b/libguile/ports.c
index 4aeb1d6..0126c2f 100644 (file)
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -155,24 +155,6 @@ scm_char_ready_p (port)
 
 \f
 
-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);
-}
-
-
-\f
-
 
 /* {Standard Ports}
  */

diff --git a/libguile/ports.h b/libguile/ports.h
index 9022dd2..f89c92b 100644 (file)
--- 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));