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

about to give up for now...

Browse Source
This commit is contained in:
John Clements 2010-12-06 17:15:06 -08:00
parent 0d2a4b98db
commit 9eaee0e6f1
3 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/stepper/private/annotate.rkt
View File

@ -546,13 +546,15 @@
[ap-struct-maker
(cond [(pair? procedure-name-info)
#`(#%app
#`(#%plain-app
#,make-ap-struct
#,annotated-lambda
#,closure-info
#,(cadr procedure-name-info))]
[else
#`(#%app
#`(#%plain-app
#,make-ap-struct
#,annotated-lambda
#,closure-info
#f)])]

1
collects/stepper/private/model.rkt
View File

@ -322,6 +322,7 @@
(define (step-through-expression expanded expand-next-expression)
(let* ([annotated (a:annotate expanded break show-lambdas-as-lambdas?
language-level)])
(printf "annotated: ~v\n" (syntax->datum annotated))
(parameterize ([test-engine:test-silence #t])
(eval-syntax annotated))
(expand-next-expression)))

4
collects/stepper/private/reconstruct.rkt
View File

@ -110,7 +110,9 @@
(opt-lambda (val render-settings [assigned-name #f])
(if (hash-ref finished-xml-box-table val (lambda () #f))
(stepper-syntax-property #`(quote #,val) 'stepper-xml-value-hint 'from-xml-box)
(let ([closure-record (closure-table-lookup val (lambda () #f))])
(let (#;[closure-record (closure-table-lookup val (lambda () #f))]
[closure-record (and (annotated-proc? val)
(annotated-proc-info val))])
(if closure-record
(let* ([mark (closure-record-mark closure-record)]
[base-name (closure-record-name closure-record)])