HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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-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!
(define (write-bytevector bv)
(write-loader-len (bytevector-length bv))
;; Ew!