diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-09-11 20:49:02 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-09-11 20:49:02 +0200 |
commit | c75be2215da7dcc993ca8450bafcbab609132871 (patch) | |
tree | 02dd34ba28787b8d98ad50433c41339639d60cfc /modules/language/python/module/os | |
parent | f75533465dbe70b153c75c85297422964b1a598d (diff) |
final hhtp code
Diffstat (limited to 'modules/language/python/module/os')
-rw-r--r-- | modules/language/python/module/os/path.scm | 23 |
1 files changed, 16 insertions, 7 deletions
diff --git a/modules/language/python/module/os/path.scm b/modules/language/python/module/os/path.scm index 1853c86..8547a1b 100644 --- a/modules/language/python/module/os/path.scm +++ b/modules/language/python/module/os/path.scm @@ -170,17 +170,26 @@ (define (isfile p) - (ca (S_ISREG (stat:mode ((@ (guile) stat) (path-it p)))))) + (catch #t + (lambda () + (ca (S_ISREG (stat:mode ((@ (guile) stat) (path-it p)))))) + (lambda x #f))) (define (isdir p) - (ca (S_ISDIR (stat:mode ((@ (guile) stat) (path-it p)))))) + (catch #t + (lambda () + (ca (S_ISDIR (stat:mode ((@ (guile) stat) (path-it p)))))) + (lambda x #f))) (define (ismount p) - (ca - (let* ((p (path-it p)) - (q (string-append p "/.."))) - (not (= (stat:dev ((@ (guile) stat) p)) - (stat:dev ((@ (guile) stat) q))))))) + (catch #t + (lambda () + (ca + (let* ((p (path-it p)) + (q (string-append p "/.."))) + (not (= (stat:dev ((@ (guile) stat) p)) + (stat:dev ((@ (guile) stat) q))))))) + (lambda x #f))) (define (normcase x) x) |