From 2426fd110be285784ed32fb0ba9f529a566a272c Mon Sep 17 00:00:00 2001 From: Patrick McCarty Date: Fri, 16 Apr 2010 12:42:18 -0700 Subject: [PATCH] Remove compat code for Guile 1.6. --- scm/lily-library.scm | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/scm/lily-library.scm b/scm/lily-library.scm index 262d912b9c..0864e57dec 100644 --- a/scm/lily-library.scm +++ b/scm/lily-library.scm @@ -435,17 +435,6 @@ bookoutput function" (cons (cons (car coords) (cadr coords)) (ly:list->offsets accum (cddr coords))))) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; numbers - -(if (not (defined? 'nan?)) ;; guile 1.6 compat - (define-public (nan? x) (not (or (< 0.0 x) - (> 0.0 x) - (= 0.0 x))))) - -(if (not (defined? 'inf?)) - (define-public (inf? x) (= (/ 1.0 x) 0.0))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; intervals -- 2.39.5