attempt to work around byecompiler bug

svn: r3360
This commit is contained in:
Guillaume Marceau 2006-06-14 20:20:24 +00:00
parent b4e198bb23
commit 41d79339b9
2 changed files with 6 additions and 0 deletions

View File

@ -12,6 +12,10 @@
)
(provide annotate-stx annotate-for-single-stepping)
(module-identifier=? #'eval/annotations
(datum->syntax-object #f 'eval/annotations))
(define (arglist-bindings arglist-stx)
(syntax-case arglist-stx ()
[var

View File

@ -6,6 +6,8 @@
(lib "shared.ss" "stepper" "private"))
(define-struct full-mark-struct (module-name source label bindings values))
(module-identifier=? #'skipto-annotate
(datum->syntax-object #f 'skipto-annotate))
; CONTRACTS
(define mark? (-> ; no args