aboutsummaryrefslogtreecommitdiff
path: root/guile
diff options
context:
space:
mode:
Diffstat (limited to 'guile')
-rw-r--r--guile/starlet/base.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm
index 41856ff..cd54d0d 100644
--- a/guile/starlet/base.scm
+++ b/guile/starlet/base.scm
@@ -489,7 +489,10 @@ pre-existing contents."
(let ((val (state-find fix attr-name combined-state)))
(if (eq? 'no-value val)
(get-attr-home-val fix attr-name)
- (value->number val 0)))))
+ (let ((rv (value->number val (hirestime))))
+ (if (eq? 'no-value rv)
+ (get-attr-home-val fix attr-name)
+ rv))))))
(define-syntax attr-continuous