From f54df5ec84cd3c191dca7b4ec3409f547d2c477d Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 24 Jan 2020 17:45:07 -0500 Subject: [PATCH] Use write to emit object information --- scheme/cyclone/transforms.sld | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld index 986cdb6f..0a6affb8 100644 --- a/scheme/cyclone/transforms.sld +++ b/scheme/cyclone/transforms.sld @@ -141,7 +141,7 @@ (define (trace:error msg) (trace 1 msg pretty-print "")) (define (trace:warn msg) (trace 2 msg pretty-print "")) (define (trace:info msg) (trace 3 msg pretty-print "")) -(define (trace:debug msg) (trace 4 msg display "DEBUG: ")) +(define (trace:debug msg) (trace 4 msg write "DEBUG: ")) (define (cyc:error msg) (error msg)