Make handle-fatal-error a separate structure
This commit is contained in:
parent
cb5de42a9b
commit
d592b417e9
|
@ -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))
|
|
||||||
|
|
Loading…
Reference in New Issue