guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-243-gf2de4


From: Mark H Weaver
Subject: [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-243-gf2de4fa
Date: Sat, 15 Mar 2014 17:25:29 +0000

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=f2de4fac885cb2964429657ea45a686e22bb3c2c

The branch, stable-2.0 has been updated
       via  f2de4fac885cb2964429657ea45a686e22bb3c2c (commit)
       via  2b509a2e37f9d3f98a1c8051629a339f499c0193 (commit)
      from  950a966e643c5f979e73ae6fbce4d0424f2a6396 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit f2de4fac885cb2964429657ea45a686e22bb3c2c
Author: Mark H Weaver <address@hidden>
Date:   Sat Mar 15 13:23:21 2014 -0400

    Fix (system base types) on big-endian systems.
    
    * module/system/base/types.scm (cell->object): When reading stringbufs,
      use UTF-32BE on big-endian systems.

commit 2b509a2e37f9d3f98a1c8051629a339f499c0193
Author: Mark H Weaver <address@hidden>
Date:   Fri Mar 14 15:07:10 2014 -0400

    SRFI-43 documentation tweaks
    
    * doc/ref/api-compound.texi (Vectors): Add cross-reference to SRFI-43.
    * doc/ref/srfi-modules.texi (SRFI-43 Selectors): Simplify description of
      'vector-ref'.

-----------------------------------------------------------------------

Summary of changes:
 doc/ref/api-compound.texi    |    6 ++++--
 doc/ref/srfi-modules.texi    |    4 ++--
 module/system/base/types.scm |    4 +++-
 3 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/doc/ref/api-compound.texi b/doc/ref/api-compound.texi
index 0b14c48..055de99 100644
--- a/doc/ref/api-compound.texi
+++ b/doc/ref/api-compound.texi
@@ -1,7 +1,7 @@
 @c -*-texinfo-*-
 @c This is part of the GNU Guile Reference Manual.
address@hidden Copyright (C)  1996, 1997, 2000, 2001, 2002, 2003, 2004, 2005, 
2006,
address@hidden   2007, 2009, 2010, 2011, 2012, 2013  Free Software Foundation, 
Inc.
address@hidden Copyright (C)  1996, 1997, 2000, 2001, 2002, 2003, 2004, 2005, 
2006, 2007,
address@hidden   2009, 2010, 2011, 2012, 2013, 2014  Free Software Foundation, 
Inc.
 @c See the file guile.texi for copying conditions.
 
 @node Compound Data Types
@@ -673,6 +673,8 @@ that vectors are the special case of one dimensional 
non-uniform arrays
 and that most array procedures operate happily on vectors
 (@pxref{Arrays}).
 
+Also see @ref{SRFI-43}, for a comprehensive vector library.
+
 @menu
 * Vector Syntax::               Read syntax for vectors.
 * Vector Creation::             Dynamic vector creation and validation.
diff --git a/doc/ref/srfi-modules.texi b/doc/ref/srfi-modules.texi
index 98ce104..b1776c6 100644
--- a/doc/ref/srfi-modules.texi
+++ b/doc/ref/srfi-modules.texi
@@ -4633,8 +4633,8 @@ comparisons are performed is unspecified.
 @subsubsection SRFI-43 Selectors
 
 @deffn {Scheme Procedure} vector-ref vec i
-Return the value that the location in @var{vec} at @var{i} is mapped to
-in the store.  Indexing is based on zero.
+Return the element at index @var{i} in @var{vec}.  Indexing is based on
+zero.
 @end deffn
 
 @deffn {Scheme Procedure} vector-length vec
diff --git a/module/system/base/types.scm b/module/system/base/types.scm
index ed95347..4544a6b 100644
--- a/module/system/base/types.scm
+++ b/module/system/base/types.scm
@@ -428,7 +428,9 @@ using BACKEND."
            (stringbuf (bytevector->string buf "ISO-8859-1")))
           (((_ & #x047f = (bitwise-ior #x400 %tc7-stringbuf))
             len (bytevector buf (* 4 len)))
-           (stringbuf (bytevector->string buf "UTF-32LE")))
+           (stringbuf (bytevector->string buf (match (native-endianness)
+                                                ('little "UTF-32LE")
+                                                ('big "UTF-32BE")))))
           (((_ & #x7f = %tc7-bytevector) len address)
            (let ((bv-port (memory-port backend address len)))
              (get-bytevector-all bv-port)))


hooks/post-receive
-- 
GNU Guile



reply via email to

[Prev in Thread] Current Thread [Next in Thread]