Make handle-fatal-error a separate structure

This commit is contained in:
mainzelm 2005-05-27 09:47:37 +00:00
parent cb5de42a9b
commit d592b417e9
1 changed files with 13 additions and 2 deletions

View File

@ -1,3 +1,13 @@
;;; utilities
(define-interface handle-fatal-error-interface
(export with-fatal-error-handler*
(with-fatal-error-handler :syntax)))
(define-structure handle-fatal-error handle-fatal-error-interface
(open scheme conditions handle)
(files handle-fatal-error))
;;; history data structure
(define-interface history-interface
@ -278,10 +288,11 @@
layout
pps
history
handle-fatal-error
;; the following modules are plugins
dirlist-view-plugin
process-view-plugin
standard-command-plugin
nuit-inspector-plugin)
(files nuit-engine
handle-fatal-error))
(files nuit-engine))