repair "mark" list extraction
This commit is contained in:
parent
8ea555aaee
commit
dfcbf87704
|
@ -4,5 +4,5 @@
|
||||||
|
|
||||||
(define (get-marks stx)
|
(define (get-marks stx)
|
||||||
(define info (syntax-debug-info stx))
|
(define info (syntax-debug-info stx))
|
||||||
(for ([e (in-list (hash-ref info 'context))])
|
(for/list ([e (in-list (hash-ref info 'context))])
|
||||||
(vector-ref e 0)))
|
(vector-ref e 0)))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user