summaryrefslogtreecommitdiff
path: root/module/language/assembly/compile-bytecode.scm
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2009-08-19 21:24:23 -0700
committerMichael Gran <spk121@yahoo.com>2009-08-19 22:15:22 -0700
commitf8ba2bb9117d75c93503fe3dde9054f5ff92c51c (patch)
tree53a7a6c9132d0ad7208e00bd677418578a4ae21c /module/language/assembly/compile-bytecode.scm
parent1c7b216f848fd454db15881709ed766323cdeed3 (diff)
downloadguile-f8ba2bb9117d75c93503fe3dde9054f5ff92c51c.tar.gz
Rename string-width to string-bytes-per-char
* libguile/strings.h: rename scm_string_width to scm_string_bytes_per_char * libguile/strings.c (scm_string_width): renamed to scm_string_bytes_per_char (scm_string_bytes_per_char): renamed from scm_string_width * module/language/assembly/compile-bytecode.scm (write-bytecode): string-width -> string-bytes-per-char * module/language/glil/compile-assembly.scm (dump-object): string-width -> string-bytes-per-char
Diffstat (limited to 'module/language/assembly/compile-bytecode.scm')
-rw-r--r--module/language/assembly/compile-bytecode.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/language/assembly/compile-bytecode.scm b/module/language/assembly/compile-bytecode.scm
index 4706cce64..688cb6b31 100644
--- a/module/language/assembly/compile-bytecode.scm
+++ b/module/language/assembly/compile-bytecode.scm
@@ -82,7 +82,7 @@
(write-string str))
(define (write-sized-loader str)
(let ((len (string-length str))
- (wid (string-width str)))
+ (wid (string-bytes-per-char str)))
(write-loader-len len)
(write-byte wid)
(if (= wid 4)