From eae55ddaf907ffd1d81b98f97c0a92a98070e2f5 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 12 Aug 2006 04:07:50 +0000 Subject: [PATCH] removed debugging output svn: r4033 --- collects/stepper/private/shared.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)