fix side effects of expand that would print something and messes wi…

…th stdout
jeapostrophe · Jan 30, 2025 · 6b0758d · 6b0758d
1 parent 991db89
commit 6b0758d
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/check-syntax.rkt b/check-syntax.rkt
@@ -174,7 +174,10 @@
             (define original-stx (with-module-reading-parameterization
                                    (λ () (read-syntax src in))))
             ;; 90 seconds limit for possible infinity recursive macro expand
-            (define stx (timeout 90 (expand original-stx)))
+            (define stx 
+              ;; parameterize current output port to fix side effects of `expand`.
+              (parameterize ([current-output-port (open-output-string)])
+                (timeout 90 (expand original-stx))))
             (add-syntax stx)
             (set! valid #t)
             (done)