diff --git a/scsh/scsh-package.scm b/scsh/scsh-package.scm index cc356ea..53b0f3f 100644 --- a/scsh/scsh-package.scm +++ b/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))