diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-11-12 20:05:42 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-11-12 20:05:42 -0800 |
| commit | 7057603b4da78bb27e7688a9d74de6025132dbbc (patch) | |
| tree | 13cf400d1ae922fc2ec1e9befc15fce271a95ea4 /tests | |
| parent | b530453f8e0331955b40c741a3b5dcb4bf6084d8 (diff) | |
| download | txr-7057603b4da78bb27e7688a9d74de6025132dbbc.tar.gz txr-7057603b4da78bb27e7688a9d74de6025132dbbc.tar.bz2 txr-7057603b4da78bb27e7688a9d74de6025132dbbc.zip | |
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.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/sock-common.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) |