mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 20:30:28 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Marius Vollmer 2004-09-22 17:41:37 +00:00
parent a61f4e0c61
commit d2e53ed6f8
56 changed files with 392 additions and 923 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/procprop.c
View file

@ -105,14 +105,14 @@ scm_i_procedure_arity (SCM proc)
goto loop;
case scm_tcs_closures:
proc = SCM_CLOSURE_FORMALS (proc);
if (SCM_NULLP (proc))
if (scm_is_null (proc))
break;
while (SCM_CONSP (proc))
while (scm_is_pair (proc))
{
++a;
proc = SCM_CDR (proc);
}
if (!SCM_NULLP (proc))
if (!scm_is_null (proc))
r = 1;
break;
case scm_tcs_struct: