From 8e5aee3ec7919096aa669290d589c69cc882ce9b Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sun, 4 Apr 2021 09:58:33 +0200 Subject: Handle intensities returning no value in HTP merge --- guile/starlet/base.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- cgit v1.2.3