From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 5 Apr 2004 22:38:22 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: release/2.3.0~88
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4a98a67526954d161e92cce82baa317ad5df761d;p=lilypond.git

*** empty log message ***
---

diff --git a/scm/encoding.scm b/scm/encoding.scm
index fee474e7e5..3c37774307 100644
--- a/scm/encoding.scm
+++ b/scm/encoding.scm
@@ -36,6 +36,7 @@
 
 (define encoding-alist '())
 
+;; TODO: run this once and 'cache' output of (write lst) in <coding>.scm ?
 (define (read-coding-file coding)
   (let* ((raw (ly:gulp-file (assoc-get coding coding-file-alist)))
 	 ;;(raw (ly:gulp-file "f7b6d320.enc"))
diff --git a/scm/lily.scm b/scm/lily.scm
index c6ebdfb2e1..928ebefbaa 100644
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -10,6 +10,10 @@
 (if (defined? 'set-debug-cell-accesses!)
     (set-debug-cell-accesses! #f))
 
+;; ugh, need this for encoding.scm test
+;; srfi-13 overrides string->list
+(define plain-string->list string->list)
+
 (use-modules (ice-9 regex)
 	     (ice-9 safe)
 	     (oop goops)