diff options
Diffstat (limited to 'modules/language/python/module/io.scm')
-rw-r--r-- | modules/language/python/module/io.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/modules/language/python/module/io.scm b/modules/language/python/module/io.scm index 058e62d..3c7809c 100644 --- a/modules/language/python/module/io.scm +++ b/modules/language/python/module/io.scm @@ -158,9 +158,11 @@ newline closefd opener) path) mode))) - (if (member #\b (string->list mode)) - F - (TextIOWrapper F encoding errors)))) + (let ((r (if (member #\b (string->list mode)) + F + (TextIOWrapper F encoding errors)))) + (set r '_closefd closefd) + r))) (define-syntax check |