Use write to emit object information

This commit is contained in:
Justin Ethier 2020-01-24 17:45:07 -05:00
parent f672d23e75
commit f54df5ec84

View file

@ -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)