diff options
Diffstat (limited to 'modules/language/python/module/os.scm')
-rw-r--r-- | modules/language/python/module/os.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/modules/language/python/module/os.scm b/modules/language/python/module/os.scm index 863287d..757d549 100644 --- a/modules/language/python/module/os.scm +++ b/modules/language/python/module/os.scm @@ -694,9 +694,10 @@ (rm (fcntl3 fd F_GETFL (logand o (lognot O_NONBLOCK))))))) (define (get_blocking fd) - (if (= (logand O_NONBLOCK (rm (fcntl2 fd F_GETFL))) 0) - #f - #t)) + (let ((fd (if (port? fd) (port->fdes fd) fd))) + (if (= (logand O_NONBLOCK (rm (fcntl2 fd F_GETFL))) 0) + #f + #t))) (define (readv fd buffers) (error "not implemented")) |