From d592b417e90b29d040389d7684ef86eaeb215d8d Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Fri, 27 May 2005 09:47:37 +0000
Subject: [PATCH] Make handle-fatal-error a separate structure

---
 scheme/nuit-packages.scm | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/scheme/nuit-packages.scm b/scheme/nuit-packages.scm
index b297900..b8d1750 100644
--- a/scheme/nuit-packages.scm
+++ b/scheme/nuit-packages.scm
@@ -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))
+