Remove unused variables in system/language.

[bpt/guile.git] / module / language / assembly / compile-bytecode.scm

diff --git a/module/language/assembly/compile-bytecode.scm b/module/language/assembly/compile-bytecode.scm
index 688cb6b..e8bba9e 100644 (file)
--- 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!