mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

Rename string-width to string-bytes-per-char

Browse source 
* 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
This commit is contained in:
Michael Gran 2009-08-19 21:24:23 -07:00
parent 1c7b216f84
commit f8ba2bb911
4 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/assembly/compile-bytecode.scm
View file

@ -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)