diff options
-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); |