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 ;;; history data structure
(define-interface history-interface (define-interface history-interface
@ -278,10 +288,11 @@
layout layout
pps pps
history history
handle-fatal-error
;; the following modules are plugins ;; the following modules are plugins
dirlist-view-plugin dirlist-view-plugin
process-view-plugin process-view-plugin
standard-command-plugin standard-command-plugin
nuit-inspector-plugin) nuit-inspector-plugin)
(files nuit-engine (files nuit-engine))
handle-fatal-error))