Differentiate apply asserts.
authorJan Nieuwenhuizen <janneke@gnu.org>
Tue, 18 Oct 2016 07:21:49 +0000 (09:21 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Tue, 18 Oct 2016 07:21:49 +0000 (09:21 +0200)
* mes.c (apply_env): Split bool assert into bool, number and string.

mes.c

diff --git a/mes.c b/mes.c
index e9f02a635bea8380102a15fbd1ab22489f45bea8..e1e5369dca234b74b6c1db46cd6c8c971c3f0f63 100644 (file)
--- a/mes.c
+++ b/mes.c
@@ -340,8 +340,10 @@ apply_env (scm *fn, scm *x, scm *a)
     scm *p = pairlis (args, x, a);
     return eval_env (cons (&symbol_begin, body), cons (cons (&symbol_closure, p), p));
   }
-  scm *efn = eval_env (fn,  a);
-  if (efn->type == NUMBER || efn == &scm_f || efn == &scm_t) assert (!"apply bool");
+  scm *efn = eval_env (fn, 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");  
   return apply_env (efn, x, a);
 }