diff options
Diffstat (limited to 'module/scheme')
-rw-r--r-- | module/scheme/base.scm | 7 |
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 |