* Removed SCM_TRUE_P since it may get confused with !SCM_FALSEP.
This commit is contained in:
parent
1f496b05af
commit
9a09deb1c3
16 changed files with 47 additions and 30 deletions
|
|
@ -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);
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue