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

Add template-binding information to syntax browser.

Browse Source 
svn: r9626
This commit is contained in:
Sam Tobin-Hochstadt 2008-05-03 11:18:06 +00:00
parent f1d36345c2
commit 0340ae770f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mrlib/syntax-browser.ss
View File

@ -174,7 +174,8 @@ needed to really make this work:
(piece-of-info "Original?" (syntax-original? stx)) (piece-of-info "Original?" (syntax-original? stx))
(when (identifier? stx) (when (identifier? stx)
(piece-of-info "Identifier-binding" (identifier-binding stx)) (piece-of-info "Identifier-binding" (identifier-binding stx))
(piece-of-info "Identifier-transformer-binding" (identifier-transformer-binding stx))) (piece-of-info "Identifier-transformer-binding" (identifier-transformer-binding stx))
(piece-of-info "Identifier-template-binding" (identifier-template-binding stx)))
(let ([properties (syntax-property-symbol-keys stx)]) (let ([properties (syntax-property-symbol-keys stx)])
(unless (null? properties) (unless (null? properties)