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

..

Browse Source 
original commit: 773d728d1113fa35022eb0b1ba5a73cfe853c95e
This commit is contained in:
Robby Findler 2003-12-05 23:15:31 +00:00
parent b2dd2f5c15
commit d7facb4ab0
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/drscheme/private/syntax-browser.ss
View File

@ -120,6 +120,10 @@ needed to really make this work:
(piece-of-info "Column" (syntax-column stx))
(piece-of-info "Span" (syntax-span stx))
(piece-of-info "Original?" (syntax-original? stx))
(when (identifier? stx)
(piece-of-info "Identifier-binding" (identifier-binding stx))
(piece-of-info "Identifier-transformer-binding" (identifier-transformer-binding stx)))
(let ([properties (syntax-properties stx)])
(unless (null? properties)
(insert/big "Properties\n")
@ -127,6 +131,22 @@ needed to really make this work:
(lambda (prop) (show-property stx prop))
properties))))
(define (render-mpi mpi)
(string-append
"#<module-path-index "
(let loop ([mpi mpi])
(cond
[(module-path-index? mpi)
(let-values ([(x y) (module-path-index-split mpi)])
(string-append
"("
(format "~s" x)
" . "
(loop y)
")"))]
[else (format "~s" mpi)]))
">"))
(define (show-property stx prop)
(piece-of-info (format "'~a" prop) (syntax-property stx prop)))