diff options
| -rw-r--r-- | tests/stdlib.lisp | 16 |
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?)) |