[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-13-g46e0923

[Andy Wingo]

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=46e0923d3526679701113c9ae01df1ba3a9ea0f5

The branch, stable-2.0 has been updated
       via  46e0923d3526679701113c9ae01df1ba3a9ea0f5 (commit)
      from  936d0bf3218bda64a46679524cc0149d11883d43 (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 46e0923d3526679701113c9ae01df1ba3a9ea0f5
Author: Andy Wingo <address@hidden>
Date:   Wed Nov 16 19:44:04 2011 +0100

    fix bug in make-repl when lang is actually a language
    
    * module/system/repl/common.scm (make-repl): Fix to accept language
      objects in addition to symbols.  Fixes http://debbugs.gnu.org/9857.
      Thanks to Tristan Colgate for the report.

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

Summary of changes:
 module/system/repl/common.scm |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/module/system/repl/common.scm b/module/system/repl/common.scm
index 718cc0b..6c6ee2a 100644
--- a/module/system/repl/common.scm
+++ b/module/system/repl/common.scm
@@ -134,7 +134,9 @@ See <http://www.gnu.org/licenses/lgpl.html>, for more 
details.")
 
 (define %make-repl make-repl)
 (define* (make-repl lang #:optional debug)
-  (%make-repl #:language (lookup-language lang)
+  (%make-repl #:language (if (language? lang)
+                             lang
+                             (lookup-language lang))
               #:options (copy-tree repl-default-options)
               #:tm-stats (times)
               #:gc-stats (gc-stats)


hooks/post-receive
-- 
GNU Guile