diff options
| -rw-r--r-- | libguile-ssh/sftp-file-type.c | 4 |
1 files changed, 3 insertions, 1 deletions
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 <poptsov.artyom@gmail.com> + * Copyright (C) 2015, 2016 Artyom V. Poptsov <poptsov.artyom@gmail.com> * * 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; } |