summaryrefslogtreecommitdiff
path: root/scheme/chez/geiser/test.ss
diff options
context:
space:
mode:
Diffstat (limited to 'scheme/chez/geiser/test.ss')
-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")
-