From e0d8ff5ebd953e61f6e201a0b68c7ce7bccdfcd8 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 22 Jul 2014 00:53:11 -0700 Subject: * eval.c (me_case): Fix quoting issue in expansion. --- ChangeLog | 4 ++++ eval.c | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index c986a5d5..ae983011 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2014-07-22 Kaz Kylheku + + * eval.c (me_case): Fix quoting issue in expansion. + 2014-07-20 Kaz Kylheku * 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)); } -- cgit v1.2.3