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

removed debugging output

Browse Source 
svn: r4033
This commit is contained in:
Eli Barzilay 2006-08-12 04:07:50 +00:00
parent b20f81b781
commit eae55ddaf9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -524,8 +524,8 @@
;; (from native property names to 'user-' style property names) ;; (from native property names to 'user-' style property names)
(define (attach-info to-exp from-exp) (define (attach-info to-exp from-exp)
(if (syntax-property from-exp 'stepper-offset-index) ;; (if (syntax-property from-exp 'stepper-offset-index)
(>>> (syntax-property from-exp 'stepper-offset-index))) ;; (>>> (syntax-property from-exp 'stepper-offset-index)))
(let* ([attached (foldl (lambda (labels stx) (let* ([attached (foldl (lambda (labels stx)
(match labels (match labels
[`(,new-label ,old-label) [`(,new-label ,old-label)