* eval.c (me_case): Fix quoting issue in expansion.

2 files changed, 7 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index c986a5d5..ae983011 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2014-07-22  Kaz Kylheku  <kaz@kylheku.com>
+
+	* eval.c (me_case): Fix quoting issue in expansion.
+
 2014-07-20  Kaz Kylheku  <kaz@kylheku.com>
 
 	* signal.c (set_sig_handler): Set up and tear down alternate
diff --git a/eval.c b/eval.c
index 4e6f8009..93486bc9 100644
--- a/eval.c
+++ b/eval.c
@@ -2595,7 +2595,9 @@ static val me_case(val form, val menv)
 
     ptail = list_collect(ptail,
                          cons(list(if3(atom(keys), eqfuncsym, memfuncsym),
-                                   tformsym, keys, nao),
+                                   tformsym, 
+                                   if3(atom(keys), keys, list(quote_s, keys, nao)),
+                                   nao),
                               forms));
   }