diff options
| author | Arun Isaac | 2022-06-26 23:32:30 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-06-27 00:19:50 +0530 |
| commit | c424794720dc1ada9274c5363fd201d6eeae4b0f (patch) | |
| tree | b1e1fa90431a298f68e714f0c7a5a51a48209553 | |
| parent | 55980f31e6d1aa0ab12a0c60835d59fa85403786 (diff) | |
| download | tissue-c424794720dc1ada9274c5363fd201d6eeae4b0f.tar.gz tissue-c424794720dc1ada9274c5363fd201d6eeae4b0f.tar.lz tissue-c424794720dc1ada9274c5363fd201d6eeae4b0f.zip | |
conditions: Add &unknown-document-type-violation.
* tissue/conditions.scm (&unknown-document-type-violation): New
condition type.
| -rw-r--r-- | tissue/conditions.scm | 9 |
1 files changed, 8 insertions, 1 deletions
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)) |