[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-133-g9d608ed

[Ludovic Courtès]

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=9d608ede96b67ad8f5a3bbab1837bdf0ee39ed0a

The branch, stable-2.0 has been updated
       via  9d608ede96b67ad8f5a3bbab1837bdf0ee39ed0a (commit)
      from  211e71a18480309904f672bd8fb943a94f447c7c (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 9d608ede96b67ad8f5a3bbab1837bdf0ee39ed0a
Author: Ludovic Courtès <address@hidden>
Date:   Mon Jan 9 23:25:02 2012 +0100

    Have `cpu-word-size' error out on unknown CPUs; add support for MIPSEL.
    
    * module/system/base/target.scm (cpu-word-size): Add support for
      `mipsel'.  Call `error' when CPU is unknown.

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

Summary of changes:
 module/system/base/target.scm |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/module/system/base/target.scm b/module/system/base/target.scm
index a81b3d9..304056d 100644
--- a/module/system/base/target.scm
+++ b/module/system/base/target.scm
@@ -1,6 +1,6 @@
 ;;; Compilation targets
 
-;; Copyright (C) 2011 Free Software Foundation, Inc.
+;; Copyright (C) 2011, 2012 Free Software Foundation, Inc.
 
 ;; This library is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU Lesser General Public
@@ -82,9 +82,9 @@
       (cond ((string-match "^i[0-9]86$" cpu) 4)
             ((string-match "64$" cpu) 8)
             ((string-match "64[lbe][lbe]$" cpu) 8)
-            ((member cpu '("sparc" "powerpc" "mips")) 4)
+            ((member cpu '("sparc" "powerpc" "mips" "mipsel")) 4)
             ((string-match "^arm.*" cpu) 4)
-            (else "unknown CPU word size" cpu))))
+            (else (error "unknown CPU word size" cpu)))))
 
 (define (triplet-cpu t)
   (substring t 0 (string-index t #\-)))


hooks/post-receive
-- 
GNU Guile