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

...

Browse Source 
svn: r2558
This commit is contained in:
John Clements 2006-03-31 20:00:14 +00:00
parent 7115f63441
commit dd89364c2d
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1067,10 +1067,25 @@
(define/contract annotate/top-level/acl2 (define/contract annotate/top-level/acl2
(syntax? . -> . syntax?) (syntax? . -> . syntax?)
(lambda (exp) (lambda (exp)
(>>> exp)
(syntax-case exp (begin define-values #%app) (syntax-case exp (begin define-values #%app)
[(begin contract-thingy [(begin contract-thingy
(begin body (begin))) (begin body (begin)))
#`(begin contract-thingy (begin #,(annotate/module-top-level #`body) (begin)))] #`(begin contract-thingy (begin #,(annotate/module-top-level #`body) (begin)))]
#;(define-values
(lifted)
(begin
(#%app
contract/proc
provide/contract-contract-id-zp
zp
provide/contract-pos-module-source-zp
(#%app module-source-as-symbol (quote-syntax here))
(quote-syntax zp))))
#;(if (#%app null? (#%app lifted (#%datum . 3))) 'y 'x)
[else (annotate/module-top-level exp)] [else (annotate/module-top-level exp)]
#;[else (begin #;[else (begin