From 5571189b64ea3a566f89aa55a15a99d8122815c6 Mon Sep 17 00:00:00 2001 From: tomsmeding Date: Fri, 22 Nov 2019 20:37:06 +0100 Subject: Clean up take-while in stdlib --- tests/stdlib.lisp | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'tests/stdlib.lisp') diff --git a/tests/stdlib.lisp b/tests/stdlib.lisp index 4f2fa80..ece8953 100644 --- a/tests/stdlib.lisp +++ b/tests/stdlib.lisp @@ -41,14 +41,9 @@ (define take-while-str (f s) (cond (= s "") - (do - ; (print "take-while-str" (bracket s) "->" (bracket s)) - s) + s (f (substr 0 1 s)) - (let ((res (concat (substr 0 1 s) (take-while-str f (substr 1 -1 s))))) - (do - ; (print "take-while-str" (bracket s) " ->" (bracket res)) - res)) + (concat (substr 0 1 s) (take-while-str f (substr 1 -1 s))) "")) (define take-while (generic-list-string-2 "take-while" take-while-list take-while-str)) -- cgit v1.2.3-54-g00ecf