summaryrefslogtreecommitdiff
path: root/scheme/chez/geiser
diff options
context:
space:
mode:
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