summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--share/txr/stdlib/txr-case.tl1
2 files changed, 6 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index 7de372ed..75601567 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
2015-07-28 Kaz Kylheku <kaz@kylheku.com>
+ * share/txr/stdlib/txr-case.tl (txr-case-impl): Bugfix,
+ handle nil case in recursion.
+
+2015-07-28 Kaz Kylheku <kaz@kylheku.com>
+
* txr.1: In introduction of user-defined places, mentioning
placelet as a way of writing place update macros.
Example added under placelet.
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))))