X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/a2ca7252121e968798b0638b758ea99d7bf62409..e5f5113c21f396705d7479a570c96690135c9d36:/module/language/assembly/compile-bytecode.scm

diff --git a/module/language/assembly/compile-bytecode.scm b/module/language/assembly/compile-bytecode.scm
index 688cb6b31..e8bba9e7e 100644
--- a/module/language/assembly/compile-bytecode.scm
+++ b/module/language/assembly/compile-bytecode.scm
@@ -80,14 +80,6 @@
   (define (write-loader str)
     (write-loader-len (string-length str))
     (write-string str))
-  (define (write-sized-loader str)
-    (let ((len (string-length str))
-          (wid (string-bytes-per-char str)))
-      (write-loader-len len)
-      (write-byte wid)
-      (if (= wid 4)
-          (write-wide-string str)
-          (write-string str))))
   (define (write-bytevector bv)
     (write-loader-len (bytevector-length bv))
     ;; Ew!