diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/ifa.tl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/share/txr/stdlib/ifa.tl b/share/txr/stdlib/ifa.tl index 170e8eb5..e99d5d40 100644 --- a/share/txr/stdlib/ifa.tl +++ b/share/txr/stdlib/ifa.tl @@ -66,6 +66,9 @@ (if (,sym ,*(if (eq 'dwim sym) ^(,(second test))) ,*temps) ,then ,else))))))))) +(defmacro whena (test . body) + ^(ifa ,test (progn ,*body))) + (macro-time (defun sys:if-to-cond (if-oper cond-oper pairs) (tree-case pairs |