fix whitespace in lexer

1 files changed, 15 insertions, 15 deletions

diff --git a/src/modules/lexer/lexer.scm b/src/modules/lexer/lexer.scm
index e6d96df..a6be215 100644
--- a/src/modules/lexer/lexer.scm
+++ b/src/modules/lexer/lexer.scm
@@ -7,8 +7,8 @@ current input port."
   (define (read-tokens-loop tokens-so-far)
     (let ((token (read-token)))
       (if token
-	  (read-tokens-loop (cons token tokens-so-far))
-	  (reverse tokens-so-far))))
+          (read-tokens-loop (cons token tokens-so-far))
+          (reverse tokens-so-far))))
   (read-tokens-loop '()))
 
 (define (read-token)
@@ -41,29 +41,29 @@ current input port."
   (define (read-constant-helper chrs-so-far)
     (let ((chr (peek-char)))
       (cond ((and (not (eof-object? chr)) (char-numeric? chr))
-	     (read-constant-helper (cons (read-char) chrs-so-far)))
-	    ((and (not (eof-object? chr)) (char-alphabetic? chr))
-	     (error "identifier starting with digit"))
-	    (#t (reverse chrs-so-far)))))
+             (read-constant-helper (cons (read-char) chrs-so-far)))
+            ((and (not (eof-object? chr)) (char-alphabetic? chr))
+             (error "identifier starting with digit"))
+            (#t (reverse chrs-so-far)))))
   (string->number (list->string (read-constant-helper (list chr)))))
 
 (define (read-identifier chr)
   (define (read-identifier-helper chrs-so-far)
     (let ((chr (peek-char)))
       (cond ((and (not (eof-object? chr))
-	      (or (char-alphabetic? chr)
-		  (char-numeric? chr)
-		  (eqv? chr #\_)))
-	     (read-identifier-helper (cons (read-char) chrs-so-far)))
-	    (#t (reverse chrs-so-far)))))
+              (or (char-alphabetic? chr)
+                  (char-numeric? chr)
+                  (eqv? chr #\_)))
+             (read-identifier-helper (cons (read-char) chrs-so-far)))
+            (#t (reverse chrs-so-far)))))
   (list->string (read-identifier-helper (list chr))))
 
 (define (lookup-keyword id)
   "Given identifier ID, converts it to a keyword
 if one is known."
   (let ((found (assoc
-		id
-		'(("int" . int)
-		  ("void" . void)
-		  ("return" . return)))))
+                id
+                '(("int" . int)
+                  ("void" . void)
+                  ("return" . return)))))
     (if found (cdr found) id)))