diff --git a/collects/stepper/private/annotate.ss b/collects/stepper/private/annotate.ss index 543c178dbe..4d0dfca048 100644 --- a/collects/stepper/private/annotate.ss +++ b/collects/stepper/private/annotate.ss @@ -8,6 +8,7 @@ "shared.ss" "my-macros.ss" #;"xml-box.ss" + #;(file "~/clements/scheme-scraps/eli-debug.ss") (prefix beginner-defined: "beginner-defined.ss")) (define-syntax (where stx) @@ -270,7 +271,7 @@ (define ((annotate/master input-is-top-level?) main-exp break track-inferred-names? language-level) - #;(define _ (fprintf (current-error-port) "input to annotate: ~v\n" (syntax-object->datum main-exp))) + #;(define _ (>>> (syntax-object->datum main-exp))) (define binding-indexer (let ([binding-index 0])