diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-09-21 00:35:19 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-09-21 00:36:31 +0200 |
commit | e5f5113c21f396705d7479a570c96690135c9d36 (patch) | |
tree | 5cef5937b403ce841b70e49f80f69b658357caed /module/language/assembly/compile-bytecode.scm | |
parent | a2ca7252121e968798b0638b758ea99d7bf62409 (diff) | |
download | guile-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.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! |