suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

account for difference between quote and ' in syntax->string

Browse Source
This commit is contained in:
lkh01 2020-03-20 16:02:58 +01:00 committed by Sam Tobin-Hochstadt
parent b1a415f232
commit 2a8e10b31a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/collects/syntax/to-string.rkt
View File

@ -50,7 +50,8 @@
(printf "; "))) (printf "; ")))
l))] l))]
[(and (pair? (syntax-e c)) [(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!) (advance c init-line!)
(printf "'") (printf "'")
(let ([i (cadr (syntax->list c))]) (let ([i (cadr (syntax->list c))])