From: Patrick McCarty <pnorcks@gmail.com>
Date: Mon, 14 Feb 2011 00:49:24 +0000 (-0800)
Subject: Guile compat: do not use the "hash-table-as-vector" interface.
X-Git-Tag: release/2.13.51-1~11
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5719c2676807f3c47c1112da705c5dc11206f2fc;p=lilypond.git

Guile compat: do not use the "hash-table-as-vector" interface.

An upstream change from Guile (between 1.9.14 and 1.9.15) removes
support for "hash-table-as-vector" code.  This functionality was
deprecated.
---

diff --git a/scm/document-backend.scm b/scm/document-backend.scm
index 8a54a6a1e8..4d55382fc4 100644
--- a/scm/document-backend.scm
+++ b/scm/document-backend.scm
@@ -68,7 +68,7 @@
 	  (description-list->texi internal-propdocs #t))
 	 ""))))
 
-(define iface->grob-table (make-vector 61 '()))
+(define iface->grob-table (make-hash-table 61))
 ;; extract ifaces, and put grob into the hash table.
 (map
  (lambda (x)
diff --git a/scm/document-music.scm b/scm/document-music.scm
index 4df3064959..93b7b36215 100644
--- a/scm/document-music.scm
+++ b/scm/document-music.scm
@@ -28,7 +28,7 @@
 	   (texi (description-list->texi descs #f)))
       texi)))
 
-(define music-types->names (make-vector 61 '()))
+(define music-types->names (make-hash-table 61))
 (filter-map (lambda (entry)
 	      (let* ((class (ly:camel-case->lisp-identifier (car entry)))
 		     (classes (ly:make-event-class class)))
diff --git a/scm/document-translation.scm b/scm/document-translation.scm
index 46606dcf0b..3e8c308d5b 100644
--- a/scm/document-translation.scm
+++ b/scm/document-translation.scm
@@ -113,7 +113,7 @@
     #:text (engraver-doc-string grav #t)))
 
 ;; Second level, part of Context description
-(define name->engraver-table (make-vector 61 '()))
+(define name->engraver-table (make-hash-table 61))
 (map
  (lambda (x)
    (hash-set! name->engraver-table (ly:translator-name x) x))