summaryrefslogtreecommitdiffstats
path: root/top-refs.scm
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:34 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:34 -0800
commit237c6e380aebdcbc70bd1c9ecf7d3f6effca2752 (patch)
tree9832fbdd6fbeedf3fc7f0e7923fe20b7d35b1499 /top-refs.scm
parent5145dd3aa0c02c9fc496d1432fc4410674206e1d (diff)
downloadslib-237c6e380aebdcbc70bd1c9ecf7d3f6effca2752.tar.gz
slib-237c6e380aebdcbc70bd1c9ecf7d3f6effca2752.zip
Import Upstream version 3a3upstream/3a3
Diffstat (limited to 'top-refs.scm')
-rw-r--r--top-refs.scm8
1 files changed, 6 insertions, 2 deletions
diff --git a/top-refs.scm b/top-refs.scm
index 3647dc4..0c88ba5 100644
--- a/top-refs.scm
+++ b/top-refs.scm
@@ -163,11 +163,15 @@
((case)
(top-refs:expression (cadr exp))
(for-each (lambda (exp)
- (for-each top-refs:expression (cdr exp)))
+ (if (list? exp)
+ (for-each top-refs:expression (cdr exp))
+ (top-refs:expression exp)))
(cddr exp)))
((cond)
(for-each (lambda (exp)
- (for-each top-refs:expression exp))
+ (if (list? exp)
+ (for-each top-refs:expression exp)
+ (top-refs:expression exp)))
(cdr exp)))
((let)
(cond ((symbol? (cadr exp))