1
Fork 0
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:
Dirk Herrmann 2000-04-04 12:13:41 +00:00
parent 304b56da60
commit 4260a7fced
17 changed files with 165 additions and 119 deletions

View file

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