removed hacks now that PR 8112 is resolved
svn: r3497
This commit is contained in:
parent
6706befaa3
commit
a334558f62
|
@ -12,10 +12,6 @@
|
||||||
)
|
)
|
||||||
(provide annotate-stx annotate-for-single-stepping)
|
(provide annotate-stx annotate-for-single-stepping)
|
||||||
|
|
||||||
(module-identifier=? #'eval/annotations
|
|
||||||
(datum->syntax-object #f 'eval/annotations))
|
|
||||||
|
|
||||||
|
|
||||||
(define (arglist-bindings arglist-stx)
|
(define (arglist-bindings arglist-stx)
|
||||||
(syntax-case arglist-stx ()
|
(syntax-case arglist-stx ()
|
||||||
[var
|
[var
|
||||||
|
|
|
@ -6,8 +6,6 @@
|
||||||
(lib "shared.ss" "stepper" "private"))
|
(lib "shared.ss" "stepper" "private"))
|
||||||
|
|
||||||
(define-struct full-mark-struct (module-name source label bindings values))
|
(define-struct full-mark-struct (module-name source label bindings values))
|
||||||
(module-identifier=? #'skipto-annotate
|
|
||||||
(datum->syntax-object #f 'skipto-annotate))
|
|
||||||
|
|
||||||
; CONTRACTS
|
; CONTRACTS
|
||||||
(define mark? (-> ; no args
|
(define mark? (-> ; no args
|
||||||
|
|
Loading…
Reference in New Issue
Block a user