From d615c03706dd18485a4ed79a2a1524ad82a53c5a Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Thu, 20 Dec 2018 16:36:22 +0100 Subject: [PATCH] mes: Add take-while. * mes/module/srfi/srfi-1.mes (take-while): New function. --- mes/module/srfi/srfi-1.mes | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/mes/module/srfi/srfi-1.mes b/mes/module/srfi/srfi-1.mes index 3b345838..8a69b7bc 100644 --- a/mes/module/srfi/srfi-1.mes +++ b/mes/module/srfi/srfi-1.mes @@ -142,3 +142,7 @@ (cons (car lst) (loop (cdr lst)))))))) (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)))))