signal-handler support

scsh/scsh-package.scm

@@ -119,7 +119,8 @@
 
 (define-structures
   ((scsh-level-0-internals (export set-command-line-args!
-				   init-scsh-hindbrain init-scsh-vars))
+				   init-scsh-hindbrain
+				   init-scsh-vars))
    (scsh-level-0
     (compound-interface posix-fdflags-interface
 			posix-errno-interface
@@ -146,6 +147,7 @@
 			tty-interface ; new in 0.4
 			scsh-version-interface
 			char-set-interface
+			signal-handler-interface
 			;; This stuff would probably be better off kept
 			;; in separate modules, but we'll toss it in for now.
 			(interface-of ascii) ; char<->ascii
@@ -183,6 +185,8 @@
 	scsh-internal-tty-flags	; Not exported
 	let-opt			; optional-arg parsing & defaulting
 	
+	interrupts	; signal handler code
+
 	scheme
 	)
 
@@ -220,6 +224,7 @@
 	 flock			; New in release 0.4.
 	 tty			; New in release 0.4.
 	 pty			; New in release 0.4.
+	 sighandlers		; New in release 0.5.
 	 scsh
 	 ))
 
@@ -228,7 +233,8 @@
   (for-syntax (open scheme error-package receiving))
   (files defrec))
 
-(define-structure defenum-package (export (define-enum-constant :syntax))
+(define-structure defenum-package (export (define-enum-constant  :syntax)
+					  (define-enum-constants :syntax))
   (open scheme)
   (files enumconst))