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

retabbing, dumping a 'local', no longer using parenthesized module form

Browse Source
This commit is contained in:
John Clements 2011-07-09 13:47:29 -07:00
parent 53db721ee9
commit 2cebd8f4cb
1 changed files with 364 additions and 368 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -762,8 +762,6 @@
; highlight-placeholder --- and a list of sexps which go in the holes ; highlight-placeholder --- and a list of sexps which go in the holes
(define (reconstruct-current mark-list break-kind returned-value-list render-settings) (define (reconstruct-current mark-list break-kind returned-value-list render-settings)
(local
(
; ;; ;;; ;;; ;;; ; ;; ; ; ;; ; ;; ;;; ; ;; ; ;; ;;; ;;; ;;; ; ;; ; ; ;; ; ;; ;;; ; ;;
;; ; ; ; ; ; ;; ; ; ;; ; ;; ; ; ; ;; ;; ; ; ; ; ; ;; ; ; ;; ; ;; ; ; ; ;;
@ -859,7 +857,8 @@
(if (stepper-syntax-property exp 'stepper-fake-exp) (if (stepper-syntax-property exp 'stepper-fake-exp)
(kernel:kernel-syntax-case exp #f (kernel:kernel-syntax-case
exp #f
[(begin . bodies) [(begin . bodies)
(if (eq? so-far nothing-so-far) (if (eq? so-far nothing-so-far)
(error 'recon-inner "breakpoint before a begin reduction should have a result value in exp: ~a" (syntax->datum exp)) (error 'recon-inner "breakpoint before a begin reduction should have a result value in exp: ~a" (syntax->datum exp))
@ -873,7 +872,8 @@
[else [else
(error 'recon-inner "unexpected fake-exp expression: ~a" (syntax->datum exp))]) (error 'recon-inner "unexpected fake-exp expression: ~a" (syntax->datum exp))])
(kernel:kernel-syntax-case exp #f (kernel:kernel-syntax-case
exp #f
; variable references ; variable references
[id [id
(identifier? (syntax id)) (identifier? (syntax id))
@ -1126,11 +1126,7 @@
mark-list null newly-lifted-bindings render-settings))]) mark-list null newly-lifted-bindings render-settings))])
(list (recon innermost-before (cdr mark-list) #f) (list (recon innermost-before (cdr mark-list) #f)
(recon innermost-after (cdr mark-list) #f))))))) (recon innermost-after (cdr mark-list) #f)))))))
)
answer answer
))
) )