From 2d8f5f4a217d85b1a9191e6f983383da51b44f72 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 9 Aug 2006 03:42:21 +0000
Subject: [PATCH] fixed PR 8213

svn: r3995
---
 collects/mrlib/interactive-value-port.ss |  1 +
 collects/mrlib/syntax-browser.ss         | 33 ++++++++----------------
 2 files changed, 12 insertions(+), 22 deletions(-)

diff --git a/collects/mrlib/interactive-value-port.ss b/collects/mrlib/interactive-value-port.ss
index e1c7eceb50..6092fd35e8 100644
--- a/collects/mrlib/interactive-value-port.ss
+++ b/collects/mrlib/interactive-value-port.ss
@@ -45,6 +45,7 @@
                    [pretty-print-size-hook
                     (λ (value display? port)
                       (cond
+                        [(not (port-writes-special? port)) #f]
                         [(is-a? value snip%) 1]
                         ;[(use-number-snip? value) 1]
                         [(syntax? value) 1]
diff --git a/collects/mrlib/syntax-browser.ss b/collects/mrlib/syntax-browser.ss
index 1b7343090a..f3486f3ddd 100644
--- a/collects/mrlib/syntax-browser.ss
+++ b/collects/mrlib/syntax-browser.ss
@@ -67,9 +67,6 @@ needed to really make this work:
       (define info-text (make-object text%))
       (define info-port (make-text-port info-text))
       
-      ;; assume that there aren't any eq? sub structures, only eq? flat stuff (symbols, etc)
-      ;; this is guaranteed by syntax-object->datum/ht
-      
       ;; range-start-ht : hash-table[obj -o> number]
       (define range-start-ht (make-hash-table))
 
@@ -118,6 +115,17 @@ needed to really make this work:
                       [else
                        (loop val enclosing-stx)]))
                   (pop!))]
+               [(vector? val) 
+                (push!)
+                (record val enclosing-stx)
+                (begin0
+                  (let lst-loop ([val (vector->list val)])
+                    (cond
+                      [(pair? val) 
+                       (cons (loop (car val) #f)
+                             (lst-loop (cdr val)))]
+                      [(null? val) '()]))
+                  (pop!))]
                [else
                 (push!)
                 (record val enclosing-stx)
@@ -507,25 +515,6 @@ needed to really make this work:
          (send down-click-bitmap get-width)))
   (define arrow-snip-cursor (make-object cursor% 'arrow))
   
-  ;; syntax-object->datum/ht : stx -> (values any hash-table[any -o> syntax])
-  ;; the resulting hash-table maps from the each sub-object's to it's syntax.
-  (define (syntax-object->datum/ht stx)
-    (let ([ht (make-hash-table)])
-      (values (let loop ([obj stx])
-                (cond
-                  [(syntax? obj)
-                   (let ([lp-datum (loop (syntax-e obj))])
-                     (hash-table-put! ht lp-datum obj)
-                     lp-datum)]
-                  [(pair? obj) 
-                   (cons (loop (car obj))
-                         (loop (cdr obj)))]
-                  [(vector? obj) 
-                   (list->vector (map loop (vector->list obj)))]
-                  [else 
-                   obj]))
-              ht)))
-  
   (define (syntax-properties stx)
     (let ([is-property? (λ (prop) (syntax-property stx prop))])
       (filter is-property?