summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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);