From 7057603b4da78bb27e7688a9d74de6025132dbbc Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 12 Nov 2016 20:05:42 -0800 Subject: Introduce case{q,ql,qual}* macros which eval keys. * eval.c (caseq_star_s, caseql_star_s, casequal_star_s): New symbol variables. (me_case): Implement new macro semantics. (eval_init): Initialize new symbol variables, and register the symbols to the me_case macro expander. * tests/sock-common.tl (local-addr): This function depends on the old broken caseql semantics which evaluate keys. Using caseql* makes it work again. * txr.1: Document case{q,ql,qual}* macros. --- tests/sock-common.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests') diff --git a/tests/sock-common.tl b/tests/sock-common.tl index 63f31c83..8fed8f23 100644 --- a/tests/sock-common.tl +++ b/tests/sock-common.tl @@ -1,5 +1,5 @@ (defun local-addr (family port) - (caseql family + (caseql* family (af-inet (new sockaddr-in addr inaddr-loopback port port)) (af-inet6 (new sockaddr-in6 addr in6addr-loopback port port)))) -- cgit v1.2.3