* ports.c (s_scm_close_all_ports_except): Use SCM_ARG1 in a

SCM_VALIDATE instead of 1 to avoid a check on the argument (since
it's not the actual name of the formal).

diff --git a/libguile/ports.c b/libguile/ports.c
index c584b07..36e301a 100644 (file)
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -621,7 +621,7 @@ which are not needed in the new process.")
        {
          SCM port = SCM_COERCE_OUTPORT (SCM_CAR (ports_ptr));
          if (i == 0)
-            SCM_VALIDATE_OPPORT(1,port);
+            SCM_VALIDATE_OPPORT(SCM_ARG1,port);
          if (port == thisport)
            found = 1;
          ports_ptr = SCM_CDR (ports_ptr);