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

show scopes info

Browse Source
This commit is contained in:
Ryan Culpepper 2015-09-15 02:04:32 -04:00
parent d2b85fb453
commit 308727c657
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
macro-debugger/macro-debugger/syntax-browser/properties.rkt
View File

@ -264,9 +264,14 @@
;; display-marks : syntax -> void
(define/private (display-marks stx)
(display "Marks: " key-sd)
(display (format "~s\n" (get-marks stx)) #f)
(display "\n" #f))
(for ([phase '(0 1 -1)])
(define info (syntax-debug-info stx phase))
(define ctx (hash-ref info 'context null))
(when (pair? ctx)
(display (format "Scopes at phase ~s:\n" phase) key-sd)
(for ([scope (in-list ctx)])
(display (format "~s\n" scope) #f))
(display "\n" #f))))
;; display-taint : syntax -> void
(define/private (display-taint stx)