1 files changed, 21 insertions, 0 deletions
diff --git a/libguile-ssh/log.c b/libguile-ssh/log.c
index 6588749..e0e3027 100644
--- a/libguile-ssh/log.c
+++ b/libguile-ssh/log.c
@@ -270,6 +270,27 @@ _gssh_log_warning (const char* function_name, const char* msg, SCM args)
   scm_dynwind_end ();
 }
 
+void
+_gssh_log_debug (const char* function_name, const char* msg, SCM args)
+{
+  char *c_str;
+  scm_dynwind_begin (0);
+
+  c_str = scm_to_locale_string (scm_object_to_string (args, SCM_UNDEFINED));
+  scm_dynwind_free (c_str);
+
+  _ssh_log (SSH_LOG_FUNCTIONS, function_name, "[GSSH DEBUG] %s: %s",
+            msg, c_str);
+
+  scm_dynwind_end ();
+}
+
+void
+_gssh_log_debug1 (const char* function_name, const char* msg)
+{
+  _ssh_log (SSH_LOG_FUNCTIONS, function_name, "[GSSH DEBUG] %s", msg);
+}
+
 
 /* Initialization */