summaryrefslogtreecommitdiff
path: root/scheme/chez/geiser
diff options
context:
space:
mode:
authorJonas Bernoulli <jonas@bernoul.li>2020-02-25 14:48:04 +0100
committerJonas Bernoulli <jonas@bernoul.li>2020-03-27 21:38:45 +0100
commit146d4a70df9ea6ca264899a5f0c0a5bb3cf7463f (patch)
tree4e5126cc5fcc8d51e8dc1effee69b019f454faa2 /scheme/chez/geiser
parent591c794e828ed2d8a3211a3e152ea3bf8858ba0e (diff)
downloadgeiser-chez-146d4a70df9ea6ca264899a5f0c0a5bb3cf7463f.tar.gz
geiser-chez-146d4a70df9ea6ca264899a5f0c0a5bb3cf7463f.tar.bz2
Fix indentation
Diffstat (limited to 'scheme/chez/geiser')
-rw-r--r--scheme/chez/geiser/geiser.ss10
-rw-r--r--scheme/chez/geiser/test.ss10
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