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 | |
parent | 591c794e828ed2d8a3211a3e152ea3bf8858ba0e (diff) | |
download | geiser-chez-146d4a70df9ea6ca264899a5f0c0a5bb3cf7463f.tar.gz geiser-chez-146d4a70df9ea6ca264899a5f0c0a5bb3cf7463f.tar.bz2 |
Fix indentation
Diffstat (limited to 'scheme')
-rw-r--r-- | scheme/chez/geiser/geiser.ss | 10 | ||||
-rw-r--r-- | scheme/chez/geiser/test.ss | 10 |
2 files changed, 10 insertions, 10 deletions
diff --git a/scheme/chez/geiser/geiser.ss b/scheme/chez/geiser/geiser.ss index 5c92a5b..70313ab 100644 --- a/scheme/chez/geiser/geiser.ss +++ b/scheme/chez/geiser/geiser.ss @@ -4,21 +4,21 @@ geiser:module-completions geiser:autodoc geiser:no-values - geiser:load-file + geiser:load-file geiser:newline geiser:macroexpand) (import (chezscheme)) (define (last-index-of str-list char idx last-idx) (if (null? str-list) - last-idx - (last-index-of (cdr str-list) char (+ 1 idx) (if (char=? char (car str-list)) idx last-idx)))) + last-idx + (last-index-of (cdr str-list) char (+ 1 idx) (if (char=? char (car str-list)) idx last-idx)))) (define (obj-file-name name) (let ((idx (last-index-of (string->list name) #\. 0 -1))) (if (= idx -1) - (string-append name ".so") - (string-append (substring name 0 idx) ".so")))) + (string-append name ".so") + (string-append (substring name 0 idx) ".so")))) (define (geiser:load-file filename) (let ((output-filename (obj-file-name filename))) 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 |