From 3f2ad7c6a7ff95693c0cf64f72ed95bb6adb3521 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 27 Apr 2020 17:06:31 +0200 Subject: Minor updates. --- tests/run-tests.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'tests') diff --git a/tests/run-tests.scm b/tests/run-tests.scm index ded94cc5..e01fcb0b 100755 --- a/tests/run-tests.scm +++ b/tests/run-tests.scm @@ -33,11 +33,11 @@ ;; Load tests (define (read-multiple) -(let loop ((done '())) - (let ((sexp (read))) - (if (eof-object? sexp) - (reverse done) - (loop (cons sexp done)))))) + (let loop ((done '())) + (let ((sexp (read))) + (if (eof-object? sexp) + (reverse done) + (loop (cons sexp done)))))) ;; TODO test-group fails if called before any test begin, since -- cgit v1.2.3