From ce7189464a302872634d949cf06e9071b625bfcb Mon Sep 17 00:00:00 2001 From: bd Date: Tue, 28 Jan 2025 16:22:49 -0500 Subject: Fix various lexer/parser bugs, pass all tests for binary ops --- ull | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'ull') diff --git a/ull b/ull index 004d7e5..a6e6c28 100755 --- a/ull +++ b/ull @@ -120,8 +120,8 @@ Returns #f on a failure, #t on a success." ;; call the backend (begin (display "Parser reported success\n") (let ((program (backend c-ast tack? generate? write?))) - (when write? + (when (and write? (not tack?) (not generate?)) (write program assembly-file-name) ;; call postprocessing (postprocess assembly-file-name executable-file-name)))) - (display "Tokenizer successful. ")))))))) + (display "Tokenizer reported success\n")))))))) -- cgit v1.2.3