Fix (port-conversion-strategy #f).

Reported by Doug Evans <xdje42@gmail.com>.

* libguile/ports.c (scm_port_conversion_strategy): Don't validate
  that 'port' is an open port until after the (port == #f) case
  has been handled.

diff --git a/libguile/ports.c b/libguile/ports.c
index f4efce7..d8d27cc 100644 (file)
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -1298,8 +1298,6 @@ SCM_DEFINE (scm_port_conversion_strategy, "port-conversion-strategy",
 {
   scm_t_string_failed_conversion_handler h;
 
-  SCM_VALIDATE_OPPORT (1, port);
-
   if (scm_is_false (port))
     h = scm_i_default_port_conversion_handler ();
   else