From 0928a2c836681e9f0a91feda3fdae127bfca6b76 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 28 Jul 2015 06:47:11 -0700 Subject: * share/txr/stdlib/txr-case.tl (txr-case-impl): Bugfix, handle nil case in recursion. --- ChangeLog | 5 +++++ share/txr/stdlib/txr-case.tl | 1 + 2 files changed, 6 insertions(+) diff --git a/ChangeLog b/ChangeLog index 7de372ed..75601567 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2015-07-28 Kaz Kylheku + + * share/txr/stdlib/txr-case.tl (txr-case-impl): Bugfix, + handle nil case in recursion. + 2015-07-28 Kaz Kylheku * txr.1: In introduction of user-defined places, mentioning diff --git a/share/txr/stdlib/txr-case.tl b/share/txr/stdlib/txr-case.tl index 2e0c5979..e6d10eca 100644 --- a/share/txr/stdlib/txr-case.tl +++ b/share/txr/stdlib/txr-case.tl @@ -32,6 +32,7 @@ (error "txr-case: clauses after (t ...) clause ignored") ^(progn ,*rest)) (error "txr-case: bad syntax: ~s" (car clauses)))) + (() ()) (atom (error "txr-case: unexpected atom in syntax: ~s" atom)))) -- cgit v1.2.3