diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-11-19 21:11:12 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-11-19 21:11:12 +0300 |
| commit | 3fddaf0bd3c9cd2eebb36d03dcfe483b8314ab8f (patch) | |
| tree | c55106cf74a2e1040189406be0789406cadc3c1e /modules/ssh | |
| parent | message.scm (message-reply-success): Handle the default case (diff) | |
| download | guile-ssh-3fddaf0bd3c9cd2eebb36d03dcfe483b8314ab8f.tar.gz | |
message.scm (message-reply-success): Improve error handling
* modules/ssh/message.scm (message-reply-success) <request-global>: Check the
number of arguments.
Diffstat (limited to 'modules/ssh')
| -rw-r--r-- | modules/ssh/message.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/modules/ssh/message.scm b/modules/ssh/message.scm index 41134ed..d356a94 100644 --- a/modules/ssh/message.scm +++ b/modules/ssh/message.scm @@ -131,7 +131,12 @@ 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))) + (cond + ((= (length args) 1) + (message-global-request-reply-success msg (car args))) + (else + (error "message-reply-success: Wrong number of arguments." + args)))) (else (error "Unknown message type" msg-type))))) |