diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 18:51:17 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-05 18:51:17 +0000 |
commit | cdc95767254eeea39868ca9763823757cf9b865d (patch) | |
tree | c867597db02caa092970084df47938931066e4b6 | |
parent | 1e48482362024ac8701988b18a8379675fbf207b (diff) | |
download | guile-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.c | 2 |
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); |