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

.

Browse Source 
original commit: 27e3eb812b5628ba81c6014f2987f462188cd596
This commit is contained in:
Matthew Flatt 1999-05-11 18:29:46 +00:00
parent fd6d2004c7
commit 233df59cc3
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/mred/wrap/mred.ss
View File

@ -39,11 +39,6 @@
(define monitor-owner #f) (define monitor-owner #f)
;; An exception may be constructed while we're entered: ;; An exception may be constructed while we're entered:
(define entered-debug-handler
(lambda ()
(as-exit
(lambda ()
((debug-info-handler))))))
(define entered-err-string-handler (define entered-err-string-handler
(lambda (s n) (lambda (s n)
(as-exit (as-exit
@ -51,18 +46,14 @@
((error-value->string-handler) s n))))) ((error-value->string-handler) s n)))))
(define old-handler #f) (define old-handler #f)
(define old-debug-handler #f)
(define old-err-string-handler #f) (define old-err-string-handler #f)
(define (enter-paramz) (define (enter-paramz)
(set! old-handler (current-exception-handler)) (set! old-handler (current-exception-handler))
(set! old-debug-handler (debug-info-handler))
(set! old-err-string-handler (error-value->string-handler)) (set! old-err-string-handler (error-value->string-handler))
(debug-info-handler entered-debug-handler)
(error-value->string-handler entered-err-string-handler)) (error-value->string-handler entered-err-string-handler))
(define (exit-paramz) (define (exit-paramz)
(current-exception-handler old-handler) (current-exception-handler old-handler)
(debug-info-handler old-debug-handler)
(error-value->string-handler old-err-string-handler)) (error-value->string-handler old-err-string-handler))
(define (as-entry f) (define (as-entry f)
@ -4180,8 +4171,7 @@
(lambda () (lambda ()
(current-output-port user-output-port) (current-output-port user-output-port)
(current-error-port user-output-port) (current-error-port user-output-port)
(current-input-port (make-input-port (lambda () eof) void void)) (current-input-port (make-input-port (lambda () eof) void void)))))
(current-will-executor (make-will-executor)))))
(send repl-display-canvas set-editor repl-buffer) (send repl-display-canvas set-editor repl-buffer)
(send frame show #t) (send frame show #t)