From bcf9ea19a41b36a5e4bd4e7bb37cca513c87fa2f Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 27 Nov 2018 06:42:57 -0800
Subject: case macros: stricter syntactic check.

* eval.c (me_case): Throw error if the test form is missing.
---
 eval.c | 3 +++
 1 file changed, 3 insertions(+)

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;
-- 
cgit v1.2.3