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

bug fixes for annotate/not-top-level

Browse Source 
svn: r4615
This commit is contained in:
John Clements 2006-10-16 23:02:57 +00:00
parent 785bc0375c
commit 3a8cfed33b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/stepper/private/annotate.ss
View File

@ -1145,7 +1145,9 @@
(annotate/top-level main-exp)])]) (annotate/top-level main-exp)])])
#;(printf "annotated: \n~a\n" (syntax-object->datum annotated-exp)) #;(printf "annotated: \n~a\n" (syntax-object->datum annotated-exp))
annotated-exp) annotated-exp)
(annotate/inner main-exp 'all #f #f))) (let*-2vals ([(annotated dont-care)
(annotate/inner (top-level-rewrite main-exp) 'all #f #f)])
annotated)))
;; !@#$ defs have to appear after annotate/master. ;; !@#$ defs have to appear after annotate/master.
(define annotate (annotate/master #t)) (define annotate (annotate/master #t))