From 0928a2c836681e9f0a91feda3fdae127bfca6b76 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
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.

---
 share/txr/stdlib/txr-case.tl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'share')

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