diff options
author | Thomas White <taw@physics.org> | 2021-03-29 17:36:12 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-03-31 21:56:36 +0200 |
commit | b985543558056b633d03ff1cd35866956929060f (patch) | |
tree | cd8fb47a7c6a7d9d598c7ed04e2c056215150b12 | |
parent | 0e1b9e265864deef794504147c16264f0bcdae24 (diff) |
current-value: Make REALLY sure that no-value does not leak through
-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 |