suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

oops, bugfix

Browse Source 
svn: r18774
This commit is contained in:
Robby Findler 2010-04-09 20:10:56 +00:00
parent 0b55e34853
commit 9ad5210bb4
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/stepper/stepper-tool.ss
View File

@ -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