Print IR during typical compilation

This commit is contained in:
John Lorentzson 2025-07-28 15:37:57 +02:00
parent 03b04ecfb1
commit 7d46193ea3

View file

@ -762,7 +762,7 @@ Additionally ensures correct line numbers on the way, as a bonus."
(let* ((src (buffer-string (current-buffer *editor*))) (let* ((src (buffer-string (current-buffer *editor*)))
(bytes (bytes
(handler-case (handler-case
(usc:compile-string-to-bytes src) (usc:compile-string-to-bytes src :print-ir-p t)
(usc:usc-error (c) (usc:usc-error (c)
(let ((source (cdr (usc:source c)))) (let ((source (cdr (usc:source c))))
(compile-fail-prompt c (car source) (cdr source))) (compile-fail-prompt c (car source) (cdr source)))