summaryrefslogtreecommitdiff
path: root/module/language/assembly/compile-bytecode.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-09-21 00:35:19 +0200
committerLudovic Courtès <ludo@gnu.org>2009-09-21 00:36:31 +0200
commite5f5113c21f396705d7479a570c96690135c9d36 (patch)
tree5cef5937b403ce841b70e49f80f69b658357caed /module/language/assembly/compile-bytecode.scm
parenta2ca7252121e968798b0638b758ea99d7bf62409 (diff)
downloadguile-e5f5113c21f396705d7479a570c96690135c9d36.tar.gz
Remove unused variables in system/language.
* module/language/assembly.scm (byte-length): Don't match unused record slots. * module/language/tree-il.scm (tree-il->scheme, post-order!, pre-order!): Likewise. * module/language/tree-il/analyze.scm (analyze-lexicals): Likewise. * module/language/tree-il/compile-glil.scm (flatten): Likewise. * module/language/assembly/disassemble.scm (disassemble-load-program): Don't match unused list elements. * module/language/glil/decompile-assembly.scm (decompile-toplevel, decompile-load-program): Likewise. * module/system/xref.scm (program-callee-rev-vars): Likewise. * module/language/assembly/compile-bytecode.scm (write-bytecode)[write-sized-loader]: Remove. * module/language/assembly/decompile-bytecode.scm (decode-load-program): Factorize `pad' variables. * module/language/ecmascript/base.scm (object->value/string, object->value/number)[v]: Remove. * module/language/ecmascript/tokenize.scm (read-slash)[c0]: Remove. * module/language/objcode/spec.scm (decompile-value)[nargs]: Remove. * module/system/repl/command.scm (time)[vms-start, vms-end]: Remove. * module/system/repl/repl.scm (prompting-meta-read): Use `prompt'.
Diffstat (limited to 'module/language/assembly/compile-bytecode.scm')
-rw-r--r--module/language/assembly/compile-bytecode.scm8
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!