diff options
Diffstat (limited to 'tests/stdlib.lisp')
| -rw-r--r-- | tests/stdlib.lisp | 9 |
1 files changed, 2 insertions, 7 deletions
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)) |