From 40c589ef8a8de95ea4d0b5f6527e4a65e428584b Mon Sep 17 00:00:00 2001 From: lkh01 Date: Fri, 20 Mar 2020 16:46:18 +0100 Subject: [PATCH] do not overwrite whitespace after a quote --- racket/collects/syntax/to-string.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/collects/syntax/to-string.rkt b/racket/collects/syntax/to-string.rkt index e0f19d03fd..8aa4b96203 100644 --- a/racket/collects/syntax/to-string.rkt +++ b/racket/collects/syntax/to-string.rkt @@ -54,8 +54,8 @@ (eq? (syntax-span (car (syntax-e c))) 1)) (advance c init-line!) (printf "'") + (set! col (+ col 1)) (let ([i (cadr (syntax->list c))]) - (set! col (or (syntax-column i) col)) ((loop init-line!) i))] [(pair? (syntax-e c)) (advance c init-line!)