do not overwrite whitespace after a quote

2020-03-20 16:46:18 +01:00 · 2020-03-20 16:46:18 +01:00 · 40c589ef8a
commit 40c589ef8a
parent 2a8e10b31a
1 changed files with 1 additions and 1 deletions
--- 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!)