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

macro-debugger: removed simplify-marks

Browse Source 
closes PR 12248

original commit: e72b9cc3fda3bc6fccc75648ad307df78aa646b1
This commit is contained in:
Ryan Culpepper 2011-10-06 15:00:13 -06:00
parent 862ed93a95
commit dc25631944
3 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/macro-debugger/syntax-browser/partition.rkt
View File

@ -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)

2
collects/macro-debugger/syntax-browser/properties.rkt
View File

@ -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

6
collects/macro-debugger/util/stxobj.rkt
View File

@ -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)