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

added skipto for let-syntaxes

Browse Source 
svn: r6192
This commit is contained in:
John Clements 2007-05-10 18:04:41 +00:00
parent db0f29e3e4
commit d0e5e2cbb6
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/lang/private/teach.ss
View File

@ -1433,12 +1433,19 @@
[(rhs-expr ...) (map allow-local-lambda [(rhs-expr ...) (map allow-local-lambda
(syntax->list (syntax (rhs-expr ...))))]) (syntax->list (syntax (rhs-expr ...))))])
(quasisyntax/loc stx (quasisyntax/loc stx
(let-values ([(tmp-id) rhs-expr] ...) (let-values ([(tmp-id) rhs-expr] ...)
(let-syntaxes ([(name) (make-undefined-check #,(stepper-syntax-property
(quote-syntax check-not-undefined) #`(let-syntaxes ([(name) (make-undefined-check
(quote-syntax tmp-id))] (quote-syntax check-not-undefined)
...) (quote-syntax tmp-id))]
expr))))] ...)
expr)
'stepper-skipto
(append
;; body of let-values:
skipto/third
;; body of let-values:
skipto/third)))))]
[_else (bad-let-form 'let stx stx)])))) [_else (bad-let-form 'let stx stx)]))))
(define (intermediate-let*/proc stx) (define (intermediate-let*/proc stx)