* Removed SCM_TRUE_P since it may get confused with !SCM_FALSEP.

This commit is contained in:
Dirk Herrmann 2000-06-05 11:39:46 +00:00
commit 9a09deb1c3
16 changed files with 47 additions and 30 deletions

View file

@ -111,7 +111,7 @@ SCM_DEFINE (scm_primitive_load, "primitive-load", 1, 0, 0,
{
SCM hook = *scm_loc_load_hook;
SCM_VALIDATE_ROSTRING (1,filename);
SCM_ASSERT (SCM_FALSEP (hook) || (SCM_TRUE_P (scm_procedure_p (hook))),
SCM_ASSERT (SCM_FALSEP (hook) || (SCM_EQ_P (scm_procedure_p (hook), SCM_BOOL_T)),
hook, "value of %load-hook is neither a procedure nor #f",
FUNC_NAME);