diff options
author | Arun Isaac | 2022-03-15 12:11:29 +0530 |
---|---|---|
committer | Arun Isaac | 2022-03-15 12:11:29 +0530 |
commit | 20a9314c014883665fa3e2b304b7184231491c46 (patch) | |
tree | 47f9536975488397ca8bd33f7256b41d18bf60ba | |
parent | 17d101b2f97edc8574528d5f05dd952921b67027 (diff) | |
download | tissue-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-x | bin/tissue | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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] |