www

commit dc2563194401122cbb7c177b631863971046a7ef
parent 862ed93a95b22d5dfde7a02ac1e2d287316bdf97
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Thu,  6 Oct 2011 15:00:13 -0600

macro-debugger: removed simplify-marks
  closes PR 12248

original commit: e72b9cc3fda3bc6fccc75648ad307df78aa646b1

Diffstat:
M
collects/macro-debugger/syntax-browser/partition.rkt
 | 
2
+-
M
collects/macro-debugger/syntax-browser/properties.rkt
 | 
2
+-
M
collects/macro-debugger/util/stxobj.rkt
 | 
6
++++--

3 files changed, 6 insertions(+), 4 deletions(-)
diff --git a/collects/macro-debugger/syntax-browser/partition.rkt b/collects/macro-debugger/syntax-browser/partition.rkt
@@ -19,7 +19,7 @@
     (define next-number 0)
 
     (define/public (get-partition stx)
-      (let ([marks (simplify-marks (get-marks stx))])
+      (let ([marks (get-marks stx)])
         (or (hash-ref simplified marks #f)
             (let ([n next-number])
               (hash-set! simplified marks n)
diff --git a/collects/macro-debugger/syntax-browser/properties.rkt b/collects/macro-debugger/syntax-browser/properties.rkt
@@ -248,7 +248,7 @@
     ;; display-marks : syntax -> void
     (define/private (display-marks stx)
       (display "Marks: " key-sd)
-      (display (format "~s\n" (simplify-marks (get-marks stx))) #f)
+      (display (format "~s\n" (get-marks stx)) #f)
       (display "\n" #f))
 
     ;; display-taint : syntax -> void
diff --git a/collects/macro-debugger/util/stxobj.rkt b/collects/macro-debugger/util/stxobj.rkt
@@ -8,6 +8,7 @@
   (get-ffi-obj "scheme_stx_extract_marks" lib
                (_fun _scheme -> _scheme)))
 
+#|
 (define (simplify-marks marklist)
   (simplify* (sort marklist <)))
 
@@ -22,9 +23,10 @@
                marklist
                (cons (car marklist) result)))]))
 
+(provide simplify-marks)
+|#
+
 (provide/contract
  [get-marks
   ;; syntax? check needed for safety!
   (c:-> syntax? any)])
-
-(provide simplify-marks)