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.scm | |
| parent | f75533465dbe70b153c75c85297422964b1a598d (diff) | |
final hhtp code
Diffstat (limited to 'modules/language/python/module/os.scm')
| -rw-r--r-- | modules/language/python/module/os.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/modules/language/python/module/os.scm b/modules/language/python/module/os.scm index 764c701..7823633 100644 --- a/modules/language/python/module/os.scm +++ b/modules/language/python/module/os.scm @@ -1399,7 +1399,10 @@ (yield top dirs nondirs))))))) (define (path:islink p) - (ca (S_ISLNK (stat:mode ((@ (guile) stat) (path-it p)))))) + (catch #t + (lambda () + (ca (S_ISLNK (stat:mode ((@ (guile) stat) (path-it p)))))) + (lambda x #f))) (define (path:samestat s1 s2) (and (equal? (ref s1 'st_dev) (ref s2 'st_dev)) |