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)) +