From ff0fa9805495bd1c977412df8d4542aebe4cbf16 Mon Sep 17 00:00:00 2001 From: "Artyom V. Poptsov" Date: Sun, 20 Nov 2016 15:11:54 +0300 Subject: sftp-file-type.c (ptob_close): Add missing 'return' statement * libguile-ssh/sftp-file-type.c (ptob_close): Add missing 'return' statement. --- libguile-ssh/sftp-file-type.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/libguile-ssh/sftp-file-type.c b/libguile-ssh/sftp-file-type.c index 7da8299..a4525b3 100644 --- a/libguile-ssh/sftp-file-type.c +++ b/libguile-ssh/sftp-file-type.c @@ -1,6 +1,6 @@ /* sftp-file-type.c -- SFTP file type. * - * Copyright (C) 2015 Artyom V. Poptsov + * Copyright (C) 2015, 2016 Artyom V. Poptsov * * This file is part of Guile-SSH. * @@ -182,6 +182,8 @@ ptob_close (SCM sftp_file) scm_gc_free (pt->write_buf, pt->write_buf_size, "port write buffer"); scm_gc_free (pt->read_buf, pt->read_buf_size, "port read buffer"); SCM_SETSTREAM (sftp_file, NULL); + + return 1; } -- cgit v1.2.3