diff options
Diffstat (limited to 'libguile/ports.c')
-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 7c3f04508..89a3bd3a3 100644 --- a/libguile/ports.c +++ b/libguile/ports.c @@ -675,7 +675,7 @@ SCM_DEFINE (scm_close_all_ports_except, "close-all-ports-except", 0, 0, 1, #define FUNC_NAME s_scm_close_all_ports_except { int i = 0; - SCM_VALIDATE_CONS (1,ports); + SCM_VALIDATE_REST_ARGUMENT (ports); while (i < scm_port_table_size) { SCM thisport = scm_port_table[i]->port; |