macro-debugger: removed simplify-marks

closes PR 12248

original commit: e72b9cc3fda3bc6fccc75648ad307df78aa646b1

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)

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

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)