diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2015-07-28 06:47:11 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2015-07-28 06:47:11 -0700 |
| commit | 0928a2c836681e9f0a91feda3fdae127bfca6b76 (patch) | |
| tree | d132f3027ec1350c3c79144b0240fb8b7af40499 /share | |
| parent | 0bd9494ea0801a5f07ac785c0df724c893373c13 (diff) | |
| download | txr-0928a2c836681e9f0a91feda3fdae127bfca6b76.tar.gz txr-0928a2c836681e9f0a91feda3fdae127bfca6b76.tar.bz2 txr-0928a2c836681e9f0a91feda3fdae127bfca6b76.zip | |
* share/txr/stdlib/txr-case.tl (txr-case-impl): Bugfix,
handle nil case in recursion.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/txr-case.tl | 1 |
1 files changed, 1 insertions, 0 deletions
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)))) |