1 files changed, 2 insertions, 2 deletions
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"))))))))