mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

* ports.c (s_scm_close_all_ports_except): Use SCM_ARG1 in a

Browse source 
SCM_VALIDATE instead of 1 to avoid a check on the argument (since
it's not the actual name of the formal).
This commit is contained in:
Greg J. Badros 2000-01-05 18:51:17 +00:00
parent 1e48482362
commit cdc9576725
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ports.c
View file

@ -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);