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

retabbing only

Browse Source
This commit is contained in:
John Clements 2011-07-09 13:46:02 -07:00
parent ba82f46a07
commit 53db721ee9
1 changed files with 1077 additions and 1074 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/stepper/private/reconstruct.rkt
View File

@ -3,7 +3,8 @@
; a varref at the top of the mark-list must either be a top-level-variable ; a varref at the top of the mark-list must either be a top-level-variable
; or have a value in some mark somewhere (or both). ; or have a value in some mark somewhere (or both).
(module reconstruct scheme/base #lang scheme/base
(require (prefix-in kernel: syntax/kerncase) (require (prefix-in kernel: syntax/kerncase)
mzlib/list mzlib/list
mzlib/etc mzlib/etc
@ -493,7 +494,8 @@
[bodies (map (lambda (body) (let-recur body arglist)) [bodies (map (lambda (body) (let-recur body arglist))
(filter-skipped (syntax->list (syntax bodies-stx))))]) (filter-skipped (syntax->list (syntax bodies-stx))))])
(cons (syntax args) bodies))))] (cons (syntax args) bodies))))]
[recon (kernel:kernel-syntax-case expr #f [recon (kernel:kernel-syntax-case
expr #f
; lambda ; lambda
[(#%plain-lambda . clause-stx) [(#%plain-lambda . clause-stx)
@ -713,7 +715,8 @@
source source
'discard 'discard
(lambda (source) (lambda (source)
(kernel:kernel-syntax-case source #f (kernel:kernel-syntax-case
source #f
[(define-values vars-stx body) [(define-values vars-stx body)
(attach-info #`(define-values vars-stx #,reconstructed) (attach-info #`(define-values vars-stx #,reconstructed)
source)] source)]