diff --git a/collects/stepper/private/shared.ss b/collects/stepper/private/shared.ss index c7c60c76b5..933c899fff 100644 --- a/collects/stepper/private/shared.ss +++ b/collects/stepper/private/shared.ss @@ -524,8 +524,8 @@ ;; (from native property names to 'user-' style property names) (define (attach-info to-exp from-exp) - (if (syntax-property from-exp 'stepper-offset-index) - (>>> (syntax-property from-exp 'stepper-offset-index))) + ;; (if (syntax-property from-exp 'stepper-offset-index) + ;; (>>> (syntax-property from-exp 'stepper-offset-index))) (let* ([attached (foldl (lambda (labels stx) (match labels [`(,new-label ,old-label)