diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2020-02-25 14:48:04 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2020-03-27 21:38:45 +0100 |
| commit | 146d4a70df9ea6ca264899a5f0c0a5bb3cf7463f (patch) | |
| tree | 4e5126cc5fcc8d51e8dc1effee69b019f454faa2 /scheme/chez/geiser/test.ss | |
| parent | 591c794e828ed2d8a3211a3e152ea3bf8858ba0e (diff) | |
| download | geiser-chez-146d4a70df9ea6ca264899a5f0c0a5bb3cf7463f.tar.gz geiser-chez-146d4a70df9ea6ca264899a5f0c0a5bb3cf7463f.tar.bz2 | |
Fix indentation
Diffstat (limited to 'scheme/chez/geiser/test.ss')
| -rw-r--r-- | scheme/chez/geiser/test.ss | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/scheme/chez/geiser/test.ss b/scheme/chez/geiser/test.ss index 21f3396..a0259e1 100644 --- a/scheme/chez/geiser/test.ss +++ b/scheme/chez/geiser/test.ss @@ -1,5 +1,5 @@ (import (geiser) - (chezscheme)) + (chezscheme)) (define-syntax assert-equal (syntax-rules () @@ -77,10 +77,10 @@ ;; [(x1 x2 x3) (+ (+ x1 x2) x3)] ;; [(x1 x2 . rest) ;; ((letrec ([loop (lambda (x1 x2 rest) -;; (let ([x (+ x1 x2)]) -;; (if (null? rest) -;; x -;; (loop x (car rest) (cdr rest)))))]) +;; (let ([x (+ x1 x2)]) +;; (if (null? rest) +;; x +;; (loop x (car rest) (cdr rest)))))]) ;; loop) ;; x1 ;; x2 |