From cf2f96313b672c3ea6d503638139192c581c92ab Mon Sep 17 00:00:00 2001 From: Patrick McCarty Date: Sun, 30 Aug 2009 18:34:38 -0700 Subject: [PATCH] lily-library.scm: add `interval-intersection' procedure --- scm/lily-library.scm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/scm/lily-library.scm b/scm/lily-library.scm index 80bc5191bb..7d0cb12602 100644 --- a/scm/lily-library.scm +++ b/scm/lily-library.scm @@ -455,6 +455,10 @@ found." (cons (min (car i1) (car i2)) (max (cdr i1) (cdr i2)))) +(define-public (interval-intersection i1 i2) + (cons (max (car i1) (car i2)) + (min (cdr i1) (cdr i2)))) + (define-public (interval-sane? i) (not (or (nan? (car i)) (inf? (car i)) -- 2.39.5