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

attempt to work around byecompiler bug

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mztake/annotator.ss
View File

@ -12,6 +12,10 @@
) )
(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

2
collects/mztake/marks.ss
View File

@ -6,6 +6,8 @@
(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