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

refactoring worked. mztake now uses skipper s single steping annotator

Browse Source 
svn: r181
This commit is contained in:
Guillaume Marceau 2005-02-17 17:42:32 +00:00
parent be27134ac4
commit bd1c915644
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/mztake/mztake.ss
View File

@ -199,12 +199,13 @@
(define (find-client process modpath)
(printf "find-client ~s ~s ~n" (map debug-client-modpath (debug-process-clients process)) modpath)
(cond
[(memf (lambda (c) (equal? (debug-client-modpath c) modpath))
(debug-process-clients process)) => first]
[else false]))
(begin0/rtn
(cond
[(memf (lambda (c) (equal? (debug-client-modpath c) (path->string modpath)))
(debug-process-clients process)) => first]
[else false])
(printf "find-client ~s ~s : ~s~n" (map debug-client-modpath (debug-process-clients process)) modpath rtn)))
(define (break? process client)
(printf "break? ~a ~a~n" client (debug-client-tracepoints client))
(let ([tracepoints (and client (debug-client-tracepoints client))])
@ -261,9 +262,10 @@
(printf "annotate-module? ~s ~s ~s : ~s~n"
(map debug-client-modpath (debug-process-clients process))
filename module-name rtn)))
;; annotator?
;; annotator
(lambda (stx)
(let ([client (find-client process (syntax-source stx))])
(let ([client (and (syntax-source stx)
(find-client process (syntax-source stx)))])
(if (not client)
stx
(let-values ([(annotated-stx pos-list)