Add keywords to lexer

1 files changed, 5 insertions, 3 deletions

diff --git a/src/gscc b/src/gscc
index 8914016..82ed649 100755
--- a/src/gscc
+++ b/src/gscc
@@ -33,9 +33,11 @@ file on a success."
 
 (define (process file parse? assemble?)
   "Driver for lexing, parsing, and assembly generation."
-  (let ((port (open-input-file file)))
-    (set-current-input-port port)
-    (read-tokens)
+  (let* ((port (open-input-file file))
+	 (tokens (begin (set-current-input-port port)
+			(read-tokens))))
+    ;; (when parse?
+    ;;   )
     (close-input-port port)))
 
 (define (postprocess file dest)