diff options
Diffstat (limited to 'modules/language/python/module/os.scm')
-rw-r--r-- | modules/language/python/module/os.scm | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/modules/language/python/module/os.scm b/modules/language/python/module/os.scm index 757d549..d985501 100644 --- a/modules/language/python/module/os.scm +++ b/modules/language/python/module/os.scm @@ -20,9 +20,10 @@ #:use-module (language python set) #:use-module (language python def) #:use-module (language python module errno) + #:use-module ((language python module io) + #:select ((open . builtin:open) DEFAULT_BUFFER_SIZE)) #:use-module (language python module resource) - #:use-module ((language python module python) - #:select ((open . builtin:open))) + #:use-module (language python list) #:replace (getcwd getuid getenv) #:export (error name ctermid environ environb chdir fchdir @@ -678,8 +679,6 @@ (define F_GETFL 3) -(define fcntl2 #f) -(define fcntl3 #f) (defineu fcntl2 () (pointer->procedure int (dynamic-func "fcntl" (dynamic-link)) (list int int))) @@ -1711,9 +1710,6 @@ (define (plock . l) (error "not implemented")) -(define DEFAULT_BUFFER_SIZE (@@ (language python module python) - DEFAULT_BUFFER_SIZE)) - (define* (popen com #:optional (mode "r") (buffering -1)) (let ((port (ca ((@ (ice-9 popen) open-pipe) com (cond |