Clean up take-while in stdlib

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))