*** empty log message ***

diff --git a/scm/encoding.scm b/scm/encoding.scm
index fee474e7e578fc53df785850e444e96838149e02..3c377743078fda1b9ace6d22daf5ba1be5b02701 100644 (file)
--- 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 c6ebdfb2e15d0b2a237ca0de23dc7c44fa9328f6..928ebefbaa1796c74bd4da602093691ee5ca934d 100644 (file)
--- 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)