From 75ac017fee70e6911d194354e43514863761b5cf Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 22 Feb 2018 19:50:25 -0800 Subject: [PATCH] nit --- sugar/debug.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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))]))