From 2c9788b6aad9c4b26b76fc85237fa01d6dbff3ba Mon Sep 17 00:00:00 2001 From: "Artyom V. Poptsov" Date: Sun, 4 Jun 2017 10:25:52 +0300 Subject: session-func.c (guile_ssh_session_set): Throw an option with its value * libguile-ssh/session-func.c (guile_ssh_session_set): Throw an option along with its value on an error. --- libguile-ssh/session-func.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/libguile-ssh/session-func.c b/libguile-ssh/session-func.c index eaba63e..99c61e6 100644 --- a/libguile-ssh/session-func.c +++ b/libguile-ssh/session-func.c @@ -403,8 +403,10 @@ Return value is undefined.\ guile_ssh_error1 (FUNC_NAME, "No such option", option); res = set_option (session, data, opt->value, value); - if (res != SSH_OK) - guile_ssh_error1 (FUNC_NAME, "Unable to set the option", option); + if (res != SSH_OK) { + guile_ssh_error1 (FUNC_NAME, "Unable to set the option", + scm_list_2 (option, value)); + } scm_remember_upto_here_1 (session); -- cgit v1.2.3