summaryrefslogtreecommitdiff
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]