Basic lexer with unit tests

1 files changed, 2 insertions, 1 deletions

diff --git a/src/gscc b/src/gscc
index 7ee1bf1..8914016 100755
--- a/src/gscc
+++ b/src/gscc
@@ -34,7 +34,8 @@ file on a success."
 (define (process file parse? assemble?)
   "Driver for lexing, parsing, and assembly generation."
   (let ((port (open-input-file file)))
-    (read-tokens-from-port port)
+    (set-current-input-port port)
+    (read-tokens)
     (close-input-port port)))
 
 (define (postprocess file dest)