diff --git a/sugar/debug.rkt b/sugar/debug.rkt index 05edb0a..1743e54 100644 --- a/sugar/debug.rkt +++ b/sugar/debug.rkt @@ -25,7 +25,7 @@ [(MACRO EXPR) #'(MACRO EXPR EXPR)] [(_ EXPR NAME) #`(let ([expr-results (call-with-values (λ () EXPR) list)]) - (eprintf "~a = ~v on line ~v\n" 'NAME (stringify-results expr-results) #,(syntax-line #'EXPR)) + (eprintf "~a = ~a on line ~a\n" 'NAME (stringify-results expr-results) #,(syntax-line #'EXPR)) (apply values expr-results))])) @@ -34,7 +34,7 @@ [(MACRO EXPR) #'(MACRO EXPR EXPR)] [(_ EXPR NAME) #`(let ([expr-results (call-with-values (λ () EXPR) list)]) - (eprintf "~a = ~v on line ~v in \"~a\"\n" 'NAME (stringify-results expr-results) + (eprintf "~a = ~a on line ~a in \"~a\"\n" 'NAME (stringify-results expr-results) #,(syntax-line #'EXPR) '#,(syntax-source #'EXPR)) (apply values expr-results))]))