From 141b46dc4273cdbccf34f449109ec9df7f01705b Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Thu, 21 Nov 2019 13:09:06 +0100 Subject: Some rewriting in in stdlib.lisp --- tests/stdlib.lisp | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) (limited to 'tests/stdlib.lisp') 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?)) -- cgit v1.2.3-54-g00ecf