summary refs log tree commit diff
diff options
context:
space:
mode:
authorArun Isaac2022-03-15 12:11:29 +0530
committerArun Isaac2022-03-15 12:11:29 +0530
commit20a9314c014883665fa3e2b304b7184231491c46 (patch)
tree47f9536975488397ca8bd33f7256b41d18bf60ba
parent17d101b2f97edc8574528d5f05dd952921b67027 (diff)
downloadtissue-20a9314c014883665fa3e2b304b7184231491c46.tar.gz
tissue-20a9314c014883665fa3e2b304b7184231491c46.tar.lz
tissue-20a9314c014883665fa3e2b304b7184231491c46.zip
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.
-rwxr-xr-xbin/tissue8
1 files 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]