From 2784c121d5a3c9d8e7831c883edac3b6857bc198 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Wed, 12 Sep 2018 17:52:08 +0530 Subject: Untabify and re-indent all sources. * build-aux/test-driver.scm, email/base64.scm, email/email.scm, email/quoted-printable.scm, email/utils.scm, tests/quoted-printable.scm: Untabify and re-indent. --- build-aux/test-driver.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'build-aux') diff --git a/build-aux/test-driver.scm b/build-aux/test-driver.scm index 25aaf44..0daad1d 100644 --- a/build-aux/test-driver.scm +++ b/build-aux/test-driver.scm @@ -18,8 +18,8 @@ ;;; . (use-modules (ice-9 getopt-long) - (srfi srfi-26) - (srfi srfi-64)) + (srfi srfi-26) + (srfi srfi-64)) ;; Currently, only log-file and trs-file are understood. Everything ;; else is ignored. @@ -35,11 +35,11 @@ (let ((runner (test-runner-simple))) (test-runner-on-test-end! runner (lambda (runner) - (format trs-port ":test-result: ~A ~A~%" - (string-upcase - (symbol->string - (test-result-kind runner))) - (test-runner-test-name runner)))) + (format trs-port ":test-result: ~A ~A~%" + (string-upcase + (symbol->string + (test-result-kind runner))) + (test-runner-test-name runner)))) runner)) @@ -48,4 +48,4 @@ (call-with-output-file (option-ref opts 'trs-file #f) (lambda (trs-port) (test-with-runner (my-gnu-runner trs-port) - (load-from-path (option-ref opts 'test-name #f)))))) + (load-from-path (option-ref opts 'test-name #f)))))) -- cgit v1.2.3