From 146d4a70df9ea6ca264899a5f0c0a5bb3cf7463f Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Tue, 25 Feb 2020 14:48:04 +0100 Subject: Fix indentation --- scheme/chez/geiser/geiser.ss | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'scheme/chez/geiser/geiser.ss') 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))) -- cgit v1.2.3