From 227ae78af72b0ad079d04e8438a4698685ebb269 Mon Sep 17 00:00:00 2001 From: Eric Knauel Date: Sat, 31 Jan 2004 14:26:52 +0000 Subject: [PATCH] added simple restartable exceptions --- s48/exceptions/AUTHORS | 2 +- s48/exceptions/BLURB | 3 ++- s48/exceptions/interfaces.scm | 4 ++++ s48/exceptions/packages.scm | 5 +++++ 4 files changed, 12 insertions(+), 2 deletions(-) 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