From 2a8e10b31a86352abe4b85d5b95ff81bd6fe1f53 Mon Sep 17 00:00:00 2001 From: lkh01 Date: Fri, 20 Mar 2020 16:02:58 +0100 Subject: [PATCH] account for difference between `quote` and `'` in `syntax->string` --- racket/collects/syntax/to-string.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/racket/collects/syntax/to-string.rkt b/racket/collects/syntax/to-string.rkt index a35664d56e..e0f19d03fd 100644 --- a/racket/collects/syntax/to-string.rkt +++ b/racket/collects/syntax/to-string.rkt @@ -50,7 +50,8 @@ (printf "; "))) l))] [(and (pair? (syntax-e c)) - (eq? (syntax-e (car (syntax-e c))) 'quote)) + (eq? (syntax-e (car (syntax-e c))) 'quote) + (eq? (syntax-span (car (syntax-e c))) 1)) (advance c init-line!) (printf "'") (let ([i (cadr (syntax->list c))])