From c424794720dc1ada9274c5363fd201d6eeae4b0f Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sun, 26 Jun 2022 23:32:30 +0530 Subject: conditions: Add &unknown-document-type-violation. * tissue/conditions.scm (&unknown-document-type-violation): New condition type. --- tissue/conditions.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/tissue/conditions.scm b/tissue/conditions.scm index b2ae543..e09e8b8 100644 --- a/tissue/conditions.scm +++ b/tissue/conditions.scm @@ -20,8 +20,15 @@ #:use-module (rnrs conditions) #:export (issue-file-not-found-error issue-file-not-found-error? - issue-file-not-found-error-issue-file)) + issue-file-not-found-error-issue-file + unknown-document-type-violation + unknown-document-type-violation? + unknown-document-type-violation-document)) (define-condition-type &issue-file-not-found-error &error issue-file-not-found-error issue-file-not-found-error? (issue-file issue-file-not-found-error-issue-file)) + +(define-condition-type &unknown-document-type-violation &violation + unknown-document-type-violation unknown-document-type-violation? + (document unknown-document-type-violation-document)) -- cgit v1.2.3