From decd801b1ab3a14d1b77a35b2b52a8e7ad70e349 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 14 May 1999 16:12:45 +0000 Subject: [PATCH] . original commit: 9d1eea53abfd55fe28c8b78f57d8145f49cc8bc8 --- collects/tests/mred/paramz.ss | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/collects/tests/mred/paramz.ss b/collects/tests/mred/paramz.ss index ff9169ee..18530ccc 100644 --- a/collects/tests/mred/paramz.ss +++ b/collects/tests/mred/paramz.ss @@ -6,20 +6,6 @@ ;; Parameterization Tests ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(define (get-hello thunk) - (parameterize ([debug-info-handler (lambda () 'hello)]) - (with-handlers ([void (lambda (x) (exn-debug-info x))]) - (thunk)))) - -(test 'hello - 'debug-info-handler - (get-hello (lambda () (make-object frame% #f)))) - -(test 'hello - 'debug-info-handler - (get-hello (lambda () (let ([f (make-object frame% #f)]) - (send f set-status-text 'bad-val))))) - ;; Killing an eventspace (define c (make-custodian)) (define e (parameterize ([current-custodian c]) (make-eventspace)))