From f0b797d9b99951d9b08bd0c0bddff283401703ec Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 19 Mar 2018 22:06:07 -0700 Subject: compiler: dump warnings from form expansion. * share/txr/stdlib/compiler.tl (usr:compile-toplevel): Call release-deferred-warnings to dump accumulated warnings. Otherwise when we are working in the listener, the pent-up warnings get dumped in relation to the next input line. --- share/txr/stdlib/compiler.tl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 24d64fc1..d02e8aee 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -503,6 +503,8 @@ (let ((co (new compiler)) (as (new assembler))) (let* ((oreg co.(alloc-treg)) - (frag co.(compile oreg (new env co co) (expand* exp)))) + (xexp (prog1 (expand* exp) (unless *load-recursive* + (release-deferred-warnings)))) + (frag co.(compile oreg (new env co co) xexp))) as.(asm ^(,*frag.code (end ,frag.oreg))) (vm-make-desc co.nlev co.nreg as.buf co.(get-datavec) co.(get-funvec))))) -- cgit v1.2.3