summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>2000-01-05 18:51:17 +0000
committerGreg J. Badros <gjb@cs.washington.edu>2000-01-05 18:51:17 +0000
commitcdc95767254eeea39868ca9763823757cf9b865d (patch)
treec867597db02caa092970084df47938931066e4b6
parent1e48482362024ac8701988b18a8379675fbf207b (diff)
downloadguile-cdc95767254eeea39868ca9763823757cf9b865d.tar.gz
* 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).
-rw-r--r--libguile/ports.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/ports.c b/libguile/ports.c
index c584b0739..36e301a6b 100644
--- 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);