From fdcf4be12c7c8913ccd26ebcab7cb05eb2abaa48 Mon Sep 17 00:00:00 2001 From: bd Date: Mon, 4 Nov 2024 23:34:54 -0500 Subject: Add keywords to lexer --- src/gscc | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'src/gscc') 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) -- cgit v1.2.3