mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-16 08:40:19 +02:00
Lots of fixes with respect to strict typing.
This commit is contained in:
parent
304b56da60
commit
4260a7fced
17 changed files with 165 additions and 119 deletions
|
@ -440,7 +440,7 @@ SCM_DEFINE (scm_procedure_source, "procedure-source", 1, 0, 0,
|
|||
return scm_procedure_property (proc, scm_sym_source);
|
||||
default:
|
||||
SCM_WTA(1,proc);
|
||||
return 0;
|
||||
return SCM_BOOL_F;
|
||||
}
|
||||
}
|
||||
#undef FUNC_NAME
|
||||
|
@ -462,7 +462,7 @@ SCM_DEFINE (scm_procedure_environment, "procedure-environment", 1, 0, 0,
|
|||
return SCM_EOL;
|
||||
default:
|
||||
SCM_WTA(1,proc);
|
||||
return 0;
|
||||
return SCM_BOOL_F;
|
||||
}
|
||||
}
|
||||
#undef FUNC_NAME
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue