summaryrefslogtreecommitdiff
path: root/module/scheme
diff options
context:
space:
mode:
Diffstat (limited to 'module/scheme')
-rw-r--r--module/scheme/base.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/module/scheme/base.scm b/module/scheme/base.scm
index b97259f18..20e280467 100644
--- a/module/scheme/base.scm
+++ b/module/scheme/base.scm
@@ -129,9 +129,10 @@
(unless (procedure? =)
(error "not a procedure" =))
(let lp ((ls ls))
- (if (or (null? ls) (= (car ls) x))
- ls
- (lp (cdr ls)))))))
+ (cond
+ ((null? ls) #f)
+ ((= (car ls) x) ls)
+ (else (lp (cdr ls))))))))
(define* (assoc x ls #:optional (= equal?))
(cond