diff options
| author | Thomas White <taw@physics.org> | 2021-04-04 09:58:33 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2021-04-04 09:58:33 +0200 |
| commit | 8e5aee3ec7919096aa669290d589c69cc882ce9b (patch) | |
| tree | 0f68cfb858fcb8ee929f122fcc848ee6a8386cf6 | |
| parent | 2234e1ef68f02460a6e3a8e7409afbd1fd68c711 (diff) | |
Handle intensities returning no value in HTP merge
| -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)) |