diff options
Diffstat (limited to 'modules/language/python/module')
| -rw-r--r-- | modules/language/python/module/os.scm | 7 | ||||
| -rw-r--r-- | modules/language/python/module/os/path.scm | 2 | ||||
| -rw-r--r-- | modules/language/python/module/python.scm | 4 | ||||
| -rw-r--r-- | modules/language/python/module/sys.scm | 5 |
4 files changed, 12 insertions, 6 deletions
diff --git a/modules/language/python/module/os.scm b/modules/language/python/module/os.scm index d985501..afed9d1 100644 --- a/modules/language/python/module/os.scm +++ b/modules/language/python/module/os.scm @@ -11,6 +11,7 @@ #:use-module (language python persist) #:use-module (language python try) #:use-module (language python module stat) + #:use-module (language python module) #:use-module (language python exceptions) #:use-module (language python yield) #:use-module (language python range) @@ -36,8 +37,8 @@ setresgid setreuid setresuid getsid setsid setuid strerr umask uname unsetenv - path curdir pardir sep extsep altsep pathsep linesep defpath - devnull + curdir pardir sep extsep altsep pathsep linesep defpath + devnull path dopen close closerange device_encoding dup dup2 fchmod fchown fdatasync fpathconf fstat fstatvfs fsynch ftruncate isatty @@ -2296,7 +2297,6 @@ (bytevector-ieee-double-ref v 8 (native-endianness)) (bytevector-ieee-double-ref v 16 (native-endianness))))))) -(define path "posixpath") (define curdir ".") (define pardir "..") (define sep "/") @@ -2338,3 +2338,4 @@ (define (getrandom . l) (py-list (apply getrandom_ l))) +(define path "posixpath") diff --git a/modules/language/python/module/os/path.scm b/modules/language/python/module/os/path.scm index 0c1abde..1853c86 100644 --- a/modules/language/python/module/os/path.scm +++ b/modules/language/python/module/os/path.scm @@ -15,7 +15,7 @@ getctime getsize isabs isfile isdir islink ismount normcase normpath realpath relpath samefile sameopenfile samestat split splitdrive splitext splitunc - supports_unicode_filenames)) + supports_unicode_filenames join)) (define-syntax-rule (aif it p x y) (let ((it p)) (if it x y))) diff --git a/modules/language/python/module/python.scm b/modules/language/python/module/python.scm index 3ae04e7..4c274ea 100644 --- a/modules/language/python/module/python.scm +++ b/modules/language/python/module/python.scm @@ -1,6 +1,7 @@ (define-module (language python module python ) #:use-module (language python module _python) #:use-module (language python compile ) + #:use-module (language python module ) #:use-module ((language python format2) #:select ())) (define-syntax re-export-all @@ -18,4 +19,7 @@ (module-re-export! (current-module) ((@ (guile) list) name)))) (resolve-interface 'iface)))])) +(set! (@ (language python module os) path) + (Module '(language python module os path))) + (re-export-all (language python module _python)) diff --git a/modules/language/python/module/sys.scm b/modules/language/python/module/sys.scm index 180f44a..9e8ce70 100644 --- a/modules/language/python/module/sys.scm +++ b/modules/language/python/module/sys.scm @@ -10,7 +10,8 @@ __stdin__ __stdout__ __stderr__ exit version_info version api_version warnoptions winver _xoption - tarcebacklimit platform maxsize hash_info)) + tarcebacklimit platform maxsize hash_info + base_prefix)) (define-syntax stdin (lambda (x) @@ -46,7 +47,7 @@ (define abiflags '("")) (define argv (command-line)) (define base_exec_prefix #f) -(define base_prefix #f) +(define base_prefix "/usr") (define byteorder (if (eq? (native-endianness) 'little) "little" "big")) |