Remove front-end/interaction hack for test-engine.
It's not needed anymore after Robby's fix to namespace handling in the teaching languages.
This commit is contained in:
parent
b4d1e29784
commit
6997b08fa2
|
@ -19,7 +19,6 @@
|
||||||
compiler/embed
|
compiler/embed
|
||||||
wxme/wxme
|
wxme/wxme
|
||||||
setup/dirs
|
setup/dirs
|
||||||
test-engine/racket-tests
|
|
||||||
|
|
||||||
;; this module is shared between the drscheme's namespace (so loaded here)
|
;; this module is shared between the drscheme's namespace (so loaded here)
|
||||||
;; and the user's namespace in the teaching languages
|
;; and the user's namespace in the teaching languages
|
||||||
|
@ -549,22 +548,6 @@
|
||||||
(htdp-lang-settings-teachpacks settings)
|
(htdp-lang-settings-teachpacks settings)
|
||||||
(drscheme:rep:current-rep)))
|
(drscheme:rep:current-rep)))
|
||||||
|
|
||||||
(define/override (front-end/interaction port settings)
|
|
||||||
(let ([t (super front-end/interaction port settings)]
|
|
||||||
[done? #f])
|
|
||||||
(λ ()
|
|
||||||
(cond
|
|
||||||
[done? eof]
|
|
||||||
[else
|
|
||||||
(let ([ans (t)])
|
|
||||||
(cond
|
|
||||||
[(eof-object? ans)
|
|
||||||
(set! done? #t)
|
|
||||||
#`(test)]
|
|
||||||
[else
|
|
||||||
ans]))]))))
|
|
||||||
|
|
||||||
|
|
||||||
(define keywords #f)
|
(define keywords #f)
|
||||||
(define/augment (capability-value key)
|
(define/augment (capability-value key)
|
||||||
(case key
|
(case key
|
||||||
|
|
Loading…
Reference in New Issue
Block a user