From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 10 Jan 2007 15:51:41 +0000 (+0100)
Subject: remove guile 1.6 compat code.
X-Git-Tag: release/2.11.11-1~22
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c5e0a98b86381797e94c5d01c3c9f5dfc7d11cd6;p=lilypond.git

remove guile 1.6 compat code.
---

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index e3a59a6439..dc69ad5df7 100644
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -188,24 +188,9 @@ found."
 ;;;;;;;;;;;;;;;;
 ;; hash
 
-(if (not (defined? 'hash-table?)) ;; guile 1.6 compat
-    (begin
-      (define hash-table? vector?)
-      (define-public (hash-for-each proc tab)
-	(hash-fold (lambda (k v prior)
-		     (proc k v)
-		     #f)
-		   #f
-		   tab))
-      (define-public (hash-table->alist t)
-	"Convert table t to list"
-	(apply append (vector->list t))))
-
-    ;; native hashtabs.
-    (begin
-      (define-public (hash-table->alist t)
-	(hash-fold (lambda (k v acc) (acons  k v  acc))
-		   '() t))))
+(define-public (hash-table->alist t)
+  (hash-fold (lambda (k v acc) (acons  k v  acc))
+	     '() t))
 
 ;; todo: code dup with C++. 
 (define-safe-public (alist->hash-table lst)