diff options
| -rw-r--r-- | guile/starlet/base.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index 688a7f9..407e3d9 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -454,7 +454,9 @@ pre-existing contents." (if (eq? 'no-value val) prev (let ((real-val (value->number val tnow))) - (max real-val prev))))) + (if (eq? 'no-value real-val) + prev + (max real-val prev)))))) 0.0 (atomic-box-ref state-list)) |