From 20a9314c014883665fa3e2b304b7184231491c46 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 15 Mar 2022 12:11:29 +0530
Subject: bin: Use raise instead of raise-exception.

raise is from the (rnrs exceptions) standard.

* bin/tissue (tissue-edit, tissue-show): Use raise instead of
raise-exception.
---
 bin/tissue | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/bin/tissue b/bin/tissue
index 2e06ac4..e0abcda 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -286,8 +286,8 @@ export EDITOR=emacsclient"))
        ;; committed. Therefore, only read the file if it exists.
        (if (file-exists? issue-file)
            (invoke (getenv "EDITOR") issue-file)
-           (raise-exception (make-message-condition
-                             (string-append "No such file or directory: " issue-file))))))))
+           (raise (make-message-condition
+                   (string-append "No such file or directory: " issue-file))))))))
 
 (define tissue-show
   (match-lambda*
@@ -344,8 +344,8 @@ Show the text of issue #ISSUE-NUMBER.
                 (const #t)
                 get-line-dos-or-unix
                 port)))
-           (raise-exception (make-message-condition
-                             (string-append "No such file or directory: " issue-file))))))))
+           (raise (make-message-condition
+                   (string-append "No such file or directory: " issue-file))))))))
 
 (define (print-usage)
   (format #t "Usage: ~a COMMAND [OPTIONS] [ARGS]
-- 
cgit v1.2.3