add: improve debugging line in reader

tnelson · Oct 23, 2024 · 85ca793 · 85ca793
1 parent 740b65b
commit 85ca793
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/forge/lang/reader.rkt b/forge/lang/reader.rkt
@@ -91,6 +91,8 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+ (require racket/pretty)
+
 ; Forge's reader function
 (define (read-syntax path port)
   (define this-lang 'forge)
@@ -146,7 +148,9 @@
 
   (define module-datum `(module forge-mod forge/lang/expander
                           ,@final))
-  ; (printf "Ints-coerced: ~a~n" ints-coerced)
+  ; For debugging purposes, convert to a datum first or pretty-format will truncate.
+  ;(printf "Ints-coerced: ~a~n" (pretty-format (syntax->datum ints-coerced)))
+
   ; (raise "STOP")
   (define result (datum->syntax #f module-datum))
   ;(printf "debug result of expansion: ~a~n" result)