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

Add vectors to syntax->list.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-07-14 15:26:46 -04:00
parent e6030295ff
commit 111ef109c3
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/syntax/to-string.rkt
View File

@ -60,6 +60,13 @@
(map (loop init-line!) (syntax->list c))
(printf ")")
(set! col (+ col 1))]
[(vector? (syntax-e c))
(advance c init-line!)
(printf "#(")
(set! col (+ col 2))
(map (loop init-line!) (vector->list (syntax-e c)))
(printf ")")
(set! col (+ col 1))]
[else
(advance c init-line!)
(let ([s (format "~s" (syntax-e c))])