diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index 1bfaedf764..78a88be540 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -371,8 +371,6 @@ module browser threading seems wrong. (reset-highlighting) (inner (void) after-delete x y)) - (printf "creating a program editor mixin\n") (flush-output) - (apply super-make-object args))] [get-program-editor-mixin (λ () diff --git a/collects/drscheme/tool-lib.ss b/collects/drscheme/tool-lib.ss index fea6111376..708e4123f1 100644 --- a/collects/drscheme/tool-lib.ss +++ b/collects/drscheme/tool-lib.ss @@ -795,6 +795,33 @@ all of the names in the tools library, for use defining keybindings raises an error, disallowing any more extensions.}) + +; +; +; +; +; ; ;;; +; ;;; +; ;;;; ;;; ;;;;;;; ;;; ;;; ;;; ;; ;; ;;; +; ;;;; ;;;;;;;;;;;; ;;;;; ;;; ;;;;;;; ;;;;;;; +; ;;; ;;; ;; ;;; ;;; ;; ;;; ;;; ;;; ;;; ;;; +; ;;; ;;; ;;;;; ;;; ;;; ;;; ;;; ;;; ;;; +; ;;; ;;; ;;; ;;; ;;; ;; ;;; ;;; ;;; ;;; ;;; +; ;;;; ;;; ;;; ;;; ;;;;; ;;; ;;; ;;; ;;;;;;; +; ;;; ;;; ;;;;;; ;;; ;;; ;;; ;;; ;; ;;; +; ;;; +; ;;;;;; +; +; + + (proc-doc/names + drscheme:tracing:annotate + (-> syntax? syntax?) + (stx) + @{Call this function to add tracing annotations to the a fully-expanded + expression. When the program runs, DrScheme will pop open the tracing + window to display the trace.}) + ; ; ;