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

preserve user origin field... it may be useful

Browse Source
This commit is contained in:
John Clements 2011-07-09 17:18:13 -07:00
parent 3030fd3f4a
commit 35c9bd90ab
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/stepper/private/macro-unwind.rkt
View File

@ -199,6 +199,15 @@
[(let-values) #'let] [(let-values) #'let]
[(letrec-values) #'letrec]))] [(letrec-values) #'letrec]))]
[new-bodies (map (lambda (body) (unwind body settings)) (syntax->list #'bodies))]) [new-bodies (map (lambda (body) (unwind body settings)) (syntax->list #'bodies))])
;; is there a nested let-form that should be combined with this one?
#;(syntax-case #`new-bodies ()
[(only-body)
(same-source? stx #'only-body)
(syntax-case #'only-body ()
[(let/*/rec bindings inner-body ...)
]
[else
(error "internal error 20110709: nested expr in let/*/rec had same source, but wasn't a let/*/rec")])])
;; is this let and the nested one part of a let*? ;; is this let and the nested one part of a let*?
(syntax-case #`new-bodies (let*) (syntax-case #`new-bodies (let*)
[((let* bindings inner-body ...)) [((let* bindings inner-body ...))