From c75be2215da7dcc993ca8450bafcbab609132871 Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Tue, 11 Sep 2018 20:49:02 +0200 Subject: final hhtp code --- modules/language/python/module/os.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'modules/language/python/module/os.scm') 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)) -- cgit v1.2.3