mes: Add take-while.
* mes/module/srfi/srfi-1.mes (take-while): New function.
This commit is contained in:
parent
885a1c8ea3
commit
d615c03706
|
@ -142,3 +142,7 @@
|
||||||
(cons (car lst) (loop (cdr lst))))))))
|
(cons (car lst) (loop (cdr lst))))))))
|
||||||
|
|
||||||
(include-from-path "srfi/srfi-1.scm")
|
(include-from-path "srfi/srfi-1.scm")
|
||||||
|
|
||||||
|
(define (take-while pred lst)
|
||||||
|
(if (or (null? lst) (not (pred (car lst)))) '()
|
||||||
|
(cons (car lst) (take-while pred (cdr lst)))))
|
||||||
|
|
Loading…
Reference in New Issue