More error handling on apply_env.

* mes.c (apply_env): Assert if applying *unspecified*.
This commit is contained in:
Jan Nieuwenhuizen 2016-10-30 15:42:50 +01:00
parent 332d2655cf
commit ad717d4bba
1 changed files with 1 additions and 0 deletions

1
mes.c
View File

@ -382,6 +382,7 @@ apply_env (scm *fn, scm *x, scm *a)
if (efn == &scm_f || efn == &scm_t) assert (!"apply bool");
if (efn->type == NUMBER) assert (!"apply number");
if (efn->type == STRING) assert (!"apply string");
if (efn == &scm_unspecified) assert (!"apply *unspecified*");
return apply_env (efn, x, a);
}