From dfcbf8770432b42c9247aced5bb401418c2380b0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 12 Apr 2015 07:34:17 -0600 Subject: [PATCH] repair "mark" list extraction --- macro-debugger-text-lib/macro-debugger/util/stxobj.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/macro-debugger-text-lib/macro-debugger/util/stxobj.rkt b/macro-debugger-text-lib/macro-debugger/util/stxobj.rkt index c3c3a10..33570aa 100644 --- a/macro-debugger-text-lib/macro-debugger/util/stxobj.rkt +++ b/macro-debugger-text-lib/macro-debugger/util/stxobj.rkt @@ -4,5 +4,5 @@ (define (get-marks 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)))