diff --git a/rhodecode/public/js/mode/scheme/index.html b/rhodecode/public/js/mode/scheme/index.html
--- a/rhodecode/public/js/mode/scheme/index.html
+++ b/rhodecode/public/js/mode/scheme/index.html
@@ -15,21 +15,21 @@
 ; See if the input starts with a given symbol.
 (define (match-symbol input pattern)
   (cond ((null? (remain input)) #f)
-	((eqv? (car (remain input)) pattern) (r-cdr input))
-	(else #f)))
+    ((eqv? (car (remain input)) pattern) (r-cdr input))
+    (else #f)))
 
 ; Allow the input to start with one of a list of patterns.
 (define (match-or input pattern)
   (cond ((null? pattern) #f)
-	((match-pattern input (car pattern)))
-	(else (match-or input (cdr pattern)))))
+    ((match-pattern input (car pattern)))
+    (else (match-or input (cdr pattern)))))
 
 ; Allow a sequence of patterns.
 (define (match-seq input pattern)
   (if (null? pattern)
       input
       (let ((match (match-pattern input (car pattern))))
-	(if match (match-seq match (cdr pattern)) #f))))
+    (if match (match-seq match (cdr pattern)) #f))))
 
 ; Match with the pattern but no problem if it does not match.
 (define (match-opt input pattern)
@@ -42,18 +42,18 @@
 ; of the sentence.
 (define (match-any input pattern)
   (cond ((null? (remain input)) #f)
-	((null? pattern) (f-cons (remain input) (clear-remain input)))
-	(else
-	 (let ((accum-any (collector)))
-	   (define (match-pattern-any input pattern)
-	     (cond ((null? (remain input)) #f)
-		   (else (accum-any (car (remain input)))
-			 (cond ((match-pattern (r-cdr input) pattern))
-			       (else (match-pattern-any (r-cdr input) pattern))))))
-	   (let ((retval (match-pattern-any input (car pattern))))
-	     (if retval
-		 (f-cons (accum-any) retval)
-		 #f))))))
+    ((null? pattern) (f-cons (remain input) (clear-remain input)))
+    (else
+     (let ((accum-any (collector)))
+       (define (match-pattern-any input pattern)
+         (cond ((null? (remain input)) #f)
+           (else (accum-any (car (remain input)))
+             (cond ((match-pattern (r-cdr input) pattern))
+                   (else (match-pattern-any (r-cdr input) pattern))))))
+       (let ((retval (match-pattern-any input (car pattern))))
+         (if retval
+         (f-cons (accum-any) retval)
+         #f))))))
 </textarea></form>
     <script>
       var editor = CodeMirror.fromTextArea(document.getElementById("code"), {});