diff options
Diffstat (limited to 'stdlib/txr-case.tl')
| -rw-r--r-- | stdlib/txr-case.tl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/stdlib/txr-case.tl b/stdlib/txr-case.tl index 29ebbe51..aedeb253 100644 --- a/stdlib/txr-case.tl +++ b/stdlib/txr-case.tl @@ -24,6 +24,7 @@ ;; CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE ;; POSSIBILITY OF SUCH DAMAGE. + (defmacro txr-if (name args input : then else) (let ((syms (keep-if [andf true symbolp [notf keywordp] [notf (op eq t)]] args)) |