diff --git a/s48/exceptions/AUTHORS b/s48/exceptions/AUTHORS index 4872194..83859dc 100644 --- a/s48/exceptions/AUTHORS +++ b/s48/exceptions/AUTHORS @@ -1,3 +1,3 @@ Richard Kelsey Michael Sperber -(port to sunterlib by Eric Knauel) \ No newline at end of file +(restart.scm and port to sunterlib by Eric Knauel) \ No newline at end of file diff --git a/s48/exceptions/BLURB b/s48/exceptions/BLURB index 18b92b5..6b9c0f9 100644 --- a/s48/exceptions/BLURB +++ b/s48/exceptions/BLURB @@ -1 +1,2 @@ -An exception and condition system for Scheme \ No newline at end of file +SRFI-34/34: An exception and condition system for Scheme +restart: simple restartable exceptions with SRFI-34/35 \ No newline at end of file diff --git a/s48/exceptions/interfaces.scm b/s48/exceptions/interfaces.scm index d5322e2..d1509c4 100644 --- a/s48/exceptions/interfaces.scm +++ b/s48/exceptions/interfaces.scm @@ -22,3 +22,7 @@ &serious serious-condition? &error error?)) +(define-interface srfi-34-restart-interface + (export + (raise-restartable :syntax) + (restart :syntax))) diff --git a/s48/exceptions/packages.scm b/s48/exceptions/packages.scm index 650635b..1a53f28 100644 --- a/s48/exceptions/packages.scm +++ b/s48/exceptions/packages.scm @@ -9,3 +9,8 @@ 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