diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-11-27 05:53:01 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-11-27 05:53:01 +0300 |
| commit | ad974b4d0caabccdcea93789b141d315e1c75942 (patch) | |
| tree | 5c0523d4d1b40808460325048b735161c21f7385 | |
| parent | message.scm (message-type, message-session): New procedures (diff) | |
| download | guile-ssh-ad974b4d0caabccdcea93789b141d315e1c75942.tar.gz | |
message.scm (message-reply-success): Use 'message-type'
* modules/ssh/message.scm (message-reply-success): Use 'message-type' instead
of deprecated procedure.
| -rw-r--r-- | modules/ssh/message.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/modules/ssh/message.scm b/modules/ssh/message.scm index 80ed4a2..4ca69fb 100644 --- a/modules/ssh/message.scm +++ b/modules/ssh/message.scm @@ -128,7 +128,7 @@ "Reply 'success' to the message MSG. This procedure is a convenient wrapper for other '*-reply-success' procedures. The right procedure to use will be selected depending on a type of the message MSG." - (let ((msg-type (message-get-type msg))) + (let ((msg-type (message-type msg))) (case (car msg-type) ((request-auth) |