diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2020-02-25 15:34:04 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2020-03-27 21:38:45 +0100 |
| commit | 21bc5bbd8c3a8defecc74d669bbcef7b2c86af15 (patch) | |
| tree | c3362eb0595a2c905dd4db5687187ee40e17b980 /scheme/chez | |
| parent | 146d4a70df9ea6ca264899a5f0c0a5bb3cf7463f (diff) | |
| download | geiser-chez-21bc5bbd8c3a8defecc74d669bbcef7b2c86af15.tar.gz geiser-chez-21bc5bbd8c3a8defecc74d669bbcef7b2c86af15.tar.bz2 | |
Delete trailing whitespace
Diffstat (limited to 'scheme/chez')
| -rw-r--r-- | scheme/chez/geiser/test.ss | 3 |
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") - |