diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-11-19 21:06:59 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-11-19 21:06:59 +0300 |
| commit | 2b7547c5ac84b9632c78ade1d9170076cf2e6460 (patch) | |
| tree | 23b228659ed0fdbf47edb8a6ad736479fb924dc3 /modules/ssh/message.scm | |
| parent | session-func.c: Fix few bugs (diff) | |
| download | guile-ssh-2b7547c5ac84b9632c78ade1d9170076cf2e6460.tar.gz | |
message.scm (message-reply-success): Handle the default case
* modules/ssh/message.scm (message-reply-success): Handle the default case
(throw an exception.)
Diffstat (limited to 'modules/ssh/message.scm')
| -rw-r--r-- | modules/ssh/message.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/modules/ssh/message.scm b/modules/ssh/message.scm index df3c6e1..41134ed 100644 --- a/modules/ssh/message.scm +++ b/modules/ssh/message.scm @@ -131,7 +131,10 @@ to use will be selected depending on a type of the message MSG." (message-channel-request-reply-success msg)) ((request-global) - (message-global-request-reply-success msg (car args)))))) + (message-global-request-reply-success msg (car args))) + + (else + (error "Unknown message type" msg-type))))) (load-extension "libguile-ssh" "init_message") |