bin: Define &user-error-condition.

* bin/tissue (&user-error-condition): New condition type.

1 files changed, 3 insertions, 0 deletions

diff --git a/bin/tissue b/bin/tissue
index be83768..798602f 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -77,6 +77,9 @@ to run tissue."
   (match (command-line)
     ((program _ ...) program)))
 
+(define-condition-type &user-error-condition &serious
+  make-user-error-condition user-error-condition?)
+
 (define tissue-search
   (match-lambda*
     (("--help")