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
 | 
			
		||||
 | 
			
		||||
(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))
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue