(read-encoding-file): split up large function,

leave caching to (delay)

diff --git a/scm/encoding.scm b/scm/encoding.scm
index c0f9f5f3d66875881ed28f54c226831d87b97009..0767ad9a23ca5f55f94b3be1315ce04746c8b996 100644 (file)
--- a/scm/encoding.scm
+++ b/scm/encoding.scm
@@ -39,7 +39,7 @@ vector of symbols."
     h))
 
 (define-public (reencode-string permutation str)
-  "Apply PERMUTATION (a vector of [0..256) -> [0..256) to STR"
+  "Apply PERMUTATION, a vector of [0..256) -> char, to STR"
   (string-map (lambda (chr)
                (vector-ref permutation (char->integer chr)))
              str))