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

small bug in shared.ss

Browse Source 
svn: r4772
This commit is contained in:
John Clements 2006-11-03 23:17:49 +00:00
parent eea7a2376c
commit 4cfa7addc3
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/stepper/private/shared.ss
View File

@ -563,7 +563,8 @@
;; expressions ;; expressions
(define (transfer-info to-exp from-exp) (define (transfer-info to-exp from-exp)
(let* ([attached (syntax-property to-exp 'stepper-properties (append (syntax-property from-exp 'stepper-properties) (let* ([attached (syntax-property to-exp 'stepper-properties (append (or (syntax-property from-exp 'stepper-properties)
null)
(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))]