Some rewriting in in stdlib.lisp

1 files changed, 7 insertions, 9 deletions

diff --git a/tests/stdlib.lisp b/tests/stdlib.lisp
index 96a55bb..fd72dd8 100644
--- a/tests/stdlib.lisp
+++ b/tests/stdlib.lisp
@@ -19,17 +19,15 @@
 (define stderr (sys-stderr))
 
 (define with-open-file (path mode f)
-    (let ((fid (sys-open-file mode path)))
-        (let ((value (f fid)))
-            (do
-                (sys-close-file fid)
-                value))))
+    (let ((fid   (sys-open-file mode path))
+          (value (f fid)))
+        (do (sys-close-file fid) value)))
 
 (define read-until (fid predicate)
-    (let ((helper (lambdarec rec (s)
-                        (let ((ch (sys-get-char fid)))
-                            (if (predicate ch) s (rec (concat s ch)))))))
-        (helper "")))
+    ((lambdarec rec (s)
+        (let ((ch (sys-get-char fid)))
+            (if (predicate ch) s (rec (concat s ch)))))
+     ""))
 
 (define read-until-eof (fid)
     (read-until fid null?))