From d7facb4ab0d088018006c430fdbead65d10645f8 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 5 Dec 2003 23:15:31 +0000
Subject: [PATCH] ..

original commit: 773d728d1113fa35022eb0b1ba5a73cfe853c95e
---
 collects/drscheme/private/syntax-browser.ss | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/collects/drscheme/private/syntax-browser.ss b/collects/drscheme/private/syntax-browser.ss
index 19e1fb69..a9e8a148 100644
--- a/collects/drscheme/private/syntax-browser.ss
+++ b/collects/drscheme/private/syntax-browser.ss
@@ -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)))