More error handling on apply_env.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 30 Oct 2016 14:42:50 +0000 (15:42 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 12 Dec 2016 19:33:49 +0000 (20:33 +0100)
* mes.c (apply_env): Assert if applying *unspecified*.

mes.c

diff --git a/mes.c b/mes.c
index 19ffbfdaf9d9313cbe1c038186517c43c318f29a..cfd834d1bbb9b766652db27872f4b9fe6a2e0077 100644 (file)
--- a/mes.c
+++ b/mes.c
@@ -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);
 }