diff options
Diffstat (limited to 'modules/language/python/module/os.scm')
| -rw-r--r-- | modules/language/python/module/os.scm | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/modules/language/python/module/os.scm b/modules/language/python/module/os.scm index a17cc86..17edfed 100644 --- a/modules/language/python/module/os.scm +++ b/modules/language/python/module/os.scm @@ -27,8 +27,8 @@ #:use-module (language python module resource) #:use-module (language python list) - #:replace (getcwd getuid getenv stat) - #:export (error name ctermid environ environb chdir fchdir + #:replace (getcwd getuid getenv stat environ) + #:export (error name ctermid environb chdir fchdir fsencode fdencode fspath PathLike getenvb get_exec_path getgid getegid geteuid fdopen getgroups getgrouplist getlogin getpgid getpgrp getpid @@ -927,10 +927,7 @@ (defineu stat (0 2) (let ((f (pointer->procedure int (dynamic-func "__fxstatat" (dynamic-link)) - (list int int '* '* int))) - (g (pointer->procedure '* - (dynamic-func "scm_stat2scm_" (dynamic-link)) - '(*)))) + (list int int '* '* int)))) (lam (path (= dir_fd None) (= follow_symlinks #t)) (if (number? path) (ca (stat_result ((@ (guile) stat) path))) @@ -948,8 +945,8 @@ bvp (if follow_symlinks 0 - AT_SYMLINK_NOFOLLOW))) - (stat_result (ca (pointer->scm (g bvp))))))))))) + AT_SYMLINK_NOFOLLOW))) + (stat_result (error "not implemented"))))))))) (define lstat (lambda* (path #:key (dir_fd None)) |