diff options
Diffstat (limited to 'guile')
| -rw-r--r-- | guile/starlet/base.scm | 5 |
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 |