diff --git a/s48/exceptions/AUTHORS b/s48/exceptions/AUTHORS index 83859dc..5fe5f5d 100644 --- a/s48/exceptions/AUTHORS +++ b/s48/exceptions/AUTHORS @@ -1,3 +1,2 @@ -Richard Kelsey -Michael Sperber -(restart.scm and port to sunterlib by Eric Knauel) \ No newline at end of file +Copyright (c) 2002 Richard Kelsey, Michael Sperber +Copyright (c) 2004 Eric Knauel diff --git a/s48/exceptions/NEWS b/s48/exceptions/NEWS new file mode 100644 index 0000000..21a1b48 --- /dev/null +++ b/s48/exceptions/NEWS @@ -0,0 +1,5 @@ +version 0.1 +* restart.scm and port to sunterlib (Eric Knauel) + +version 0.0 2002-12-01 +* Upstream from Richard Kelsey, Michael Sperber diff --git a/s48/exceptions/interfaces.scm b/s48/exceptions/load.scm similarity index 66% rename from s48/exceptions/interfaces.scm rename to s48/exceptions/load.scm index d1509c4..361870f 100644 --- a/s48/exceptions/interfaces.scm +++ b/s48/exceptions/load.scm @@ -26,3 +26,20 @@ (export (raise-restartable :syntax) (restart :syntax))) + +(define-structure srfi-34 srfi-34-interface + (open scheme + signals) + (files srfi-34)) + +(define-structure srfi-35 srfi-35-interface + (open scheme + signals + srfi-1 + srfi-9) + (files srfi-35)) + +(define-structure srfi-34-restart srfi-34-restart-interface + (open scheme + srfi-34 srfi-35) + (files restart)) diff --git a/s48/exceptions/packages.scm b/s48/exceptions/packages.scm deleted file mode 100644 index 1a53f28..0000000 --- a/s48/exceptions/packages.scm +++ /dev/null @@ -1,16 +0,0 @@ -(define-structure srfi-34 srfi-34-interface - (open scheme - signals) - (files srfi-34)) - -(define-structure srfi-35 srfi-35-interface - (open scheme - signals - srfi-1 - srfi-9) - (files srfi-35)) - -(define-structure srfi-34-restart srfi-34-restart-interface - (open scheme - srfi-34 srfi-35) - (files restart)) \ No newline at end of file diff --git a/s48/exceptions/pkg-def.scm b/s48/exceptions/pkg-def.scm new file mode 100644 index 0000000..f26335a --- /dev/null +++ b/s48/exceptions/pkg-def.scm @@ -0,0 +1,8 @@ +(define-package "exceptions" + (0 1) + () + (install-file "load.scm" 'base) + (install-string (COPYING) "COPYING" 'doc) + (install-file "restart.scm" 'scheme) + (install-file "srfi-34.scm" 'scheme) + (install-file "srfi-35.scm" 'scheme))