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

preserve origin field

Browse Source
This commit is contained in:
John Clements 2011-07-09 16:18:36 -07:00
parent 9cdeda1e04
commit a1cc083737
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/stepper/private/shared.rkt
View File

@ -616,7 +616,8 @@
(or (syntax-property to-exp 'stepper-properties) (or (syntax-property to-exp 'stepper-properties)
null)))] null)))]
[attached (syntax-property attached 'user-source (syntax-source from-exp))] [attached (syntax-property attached 'user-source (syntax-source from-exp))]
[attached (syntax-property attached 'user-position (syntax-position from-exp))]) [attached (syntax-property attached 'user-position (syntax-position from-exp))]
[attached (syntax-property attached 'user-origin (syntax-property from-exp 'origin))])
attached)) attached))
;; transfer info from reconstructed expressions to other reconstructed ;; transfer info from reconstructed expressions to other reconstructed
@ -628,7 +629,8 @@
(or (syntax-property to-exp 'stepper-properties) (or (syntax-property to-exp 'stepper-properties)
null)))] null)))]
[attached (syntax-property attached 'user-source (syntax-property from-exp 'user-source))] [attached (syntax-property attached 'user-source (syntax-property from-exp 'user-source))]
[attached (syntax-property attached 'user-position (syntax-property from-exp 'user-position))]) [attached (syntax-property attached 'user-position (syntax-property from-exp 'user-position))]
[attached (syntax-property attached 'user-origin (syntax-property from-exp 'user-origin))])
attached)) attached))
(define (values-map fn . lsts) (define (values-map fn . lsts)