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

.

Browse Source 
original commit: 9d1eea53abfd55fe28c8b78f57d8145f49cc8bc8
This commit is contained in:
Matthew Flatt 1999-05-14 16:12:45 +00:00
parent 75c99f9a74
commit decd801b1a
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/tests/mred/paramz.ss
View File

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