From 35c9bd90ab5817d53a34100d896dc6bf47b0fb79 Mon Sep 17 00:00:00 2001 From: John Clements Date: Sat, 9 Jul 2011 17:18:13 -0700 Subject: [PATCH] preserve user origin field... it may be useful --- collects/stepper/private/macro-unwind.rkt | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/collects/stepper/private/macro-unwind.rkt b/collects/stepper/private/macro-unwind.rkt index 8b888cbd29..f17deb1920 100644 --- a/collects/stepper/private/macro-unwind.rkt +++ b/collects/stepper/private/macro-unwind.rkt @@ -199,6 +199,15 @@ [(let-values) #'let] [(letrec-values) #'letrec]))] [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*? (syntax-case #`new-bodies (let*) [((let* bindings inner-body ...))