From 21bc5bbd8c3a8defecc74d669bbcef7b2c86af15 Mon Sep 17 00:00:00 2001
From: Jonas Bernoulli <jonas@bernoul.li>
Date: Tue, 25 Feb 2020 15:34:04 +0100
Subject: Delete trailing whitespace

---
 scheme/chez/geiser/test.ss | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'scheme')

diff --git a/scheme/chez/geiser/test.ss b/scheme/chez/geiser/test.ss
index a0259e1..2407448 100644
--- a/scheme/chez/geiser/test.ss
+++ b/scheme/chez/geiser/test.ss
@@ -58,7 +58,7 @@
 ;; (make-violation)
 ;;=> #<condition &violation>
 (do-test
- '(make-violation) 
+ '(make-violation)
  "((result \"#<condition &violation>\\n\") (output . \"\"))\n")
 
 ;; (values 1 2 3)
@@ -118,4 +118,3 @@
      rest)]
   [(x1) (+ x1)]
   [() (+)])) "((result \"(case-lambda\\n  [(x1 x2) (+ x1 x2)]\\n  [(x1 x2 x3) (+ (+ x1 x2) x3)]\\n  [(x1 x2 . rest)\\n   ((letrec ([loop (lambda (x1 x2 rest)\\n                     (let ([x (+ x1 x2)])\\n                       (if (null? rest)\\n                           x\\n                           (loop x (car rest) (cdr rest)))))])\\n      loop)\\n     x1\\n     x2\\n     rest)]\\n  [(x1) (+ x1)]\\n  [() (+)])\\n\") (output . \"\"))\n")
-
-- 
cgit v1.2.3