From 4717b3ea91b47c3d04d09cf84b9221ea1f89d9f2 Mon Sep 17 00:00:00 2001 From: bd Date: Mon, 4 Nov 2024 22:28:56 -0500 Subject: Basic lexer with unit tests --- src/gscc | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/gscc') 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) -- cgit v1.2.3