summaryrefslogtreecommitdiff
path: root/scheme/chez/geiser
diff options
context:
space:
mode:
authorJonas Bernoulli <jonas@bernoul.li>2020-02-25 15:34:04 +0100
committerJonas Bernoulli <jonas@bernoul.li>2020-03-27 21:38:45 +0100
commit21bc5bbd8c3a8defecc74d669bbcef7b2c86af15 (patch)
treec3362eb0595a2c905dd4db5687187ee40e17b980 /scheme/chez/geiser
parent146d4a70df9ea6ca264899a5f0c0a5bb3cf7463f (diff)
downloadgeiser-chez-21bc5bbd8c3a8defecc74d669bbcef7b2c86af15.tar.gz
geiser-chez-21bc5bbd8c3a8defecc74d669bbcef7b2c86af15.tar.bz2
Delete trailing whitespace
Diffstat (limited to 'scheme/chez/geiser')
-rw-r--r--scheme/chez/geiser/test.ss3
1 files changed, 1 insertions, 2 deletions
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")
-