From 9ad5210bb43b137398ac9bc2a9efaa34d603ca54 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 9 Apr 2010 20:10:56 +0000 Subject: [PATCH] oops, bugfix svn: r18774 --- collects/stepper/stepper-tool.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/stepper/stepper-tool.ss b/collects/stepper/stepper-tool.ss index d3376aba80..c8264a0738 100644 --- a/collects/stepper/stepper-tool.ss +++ b/collects/stepper/stepper-tool.ss @@ -70,9 +70,7 @@ (drscheme:language-configuration:language-settings-language settings)) (define (stepper-works-for? language-level) - (printf "~s\n" language-level) (or (send language-level stepper:supported?) - (is-a? language-level drscheme:module-language:module-language<%>) (getenv "PLTSTEPPERUNSAFE"))) ;; the stepper's frame: @@ -222,7 +220,8 @@ (let* ([language-level (extract-language-level (get-definitions-text))] [language-level-name (language-level->name language-level)]) - (if (stepper-works-for? language-level) + (if (or (stepper-works-for? language-level) + (is-a? language-level drscheme:module-language:module-language<%>)) (set! stepper-frame (go this program-expander