From: Patrick McCarty <pnorcks@gmail.com>
Date: Fri, 16 Apr 2010 19:42:18 +0000 (-0700)
Subject: Remove compat code for Guile 1.6.
X-Git-Tag: release/2.13.19-1~2^2~35
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2426fd110be285784ed32fb0ba9f529a566a272c;p=lilypond.git

Remove compat code for Guile 1.6.
---

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