"Length of the number-pair X, when an interval"
(max 0 (- (cdr x) (car x))))
-(define-public interval-start car)
(define-public (ordered-cons a b)
(cons (min a b)
(max a b)))
-(define-public interval-end cdr)
-
(define-public (interval-bound interval dir)
((if (= dir RIGHT) cdr car) interval))
(/ (+ (car x) (cdr x)) 2)))
(define-public interval-start car)
+
(define-public interval-end cdr)
+
(define-public (interval-translate iv amount)
(cons (+ amount (car iv))
(+ amount (cdr iv))))
(cons (- (car iv) amount)
(+ (cdr iv) amount)))
-
(define-public (interval-empty? iv)
(> (car iv) (cdr iv)))
(cons (min (interval-start interval) p)
(max (interval-end interval) p)))
-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; string