diff options
Diffstat (limited to 'module/language/assembly/compile-bytecode.scm')
-rw-r--r-- | module/language/assembly/compile-bytecode.scm | 8 |
1 files changed, 0 insertions, 8 deletions
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! |