case macros: stricter syntactic check.

* eval.c (me_case): Throw error if the test form is missing.

1 files changed, 3 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 5f7ee78d..e1c75197 100644
--- a/eval.c
+++ b/eval.c
@@ -3913,6 +3913,9 @@ static val me_case(val form, val menv)
   list_collect_decl (condpairs, ptail);
   list_collect_decl (hashforms, qtail);
 
+  if (atom(cdr(form_orig)))
+    eval_error(form_orig, lit("~s: missing test form"), casesym, nao);
+
   if (casesym == caseq_s || casesym == caseq_star_s) {
     memfuncsym = memq_s;
     eqfuncsym = eq_s;