[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.7-48-ge6f7624

[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=e6f7624ad32277d0b59be6aeed62c854da7ad751

The branch, stable-2.0 has been updated
       via  e6f7624ad32277d0b59be6aeed62c854da7ad751 (commit)
       via  7ca5500ff303e16c77f473a42ece9cb20e3e3569 (commit)
      from  5745de917272804ab2b33a3271940b913d0d7c70 (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 e6f7624ad32277d0b59be6aeed62c854da7ad751
Author: Andy Wingo <address@hidden>
Date:   Tue Jan 22 15:40:08 2013 +0100

    paameterize in read-and-compile
    
    * module/system/base/compile.scm (read-and-compile): Use
      current-language parameter.

commit 7ca5500ff303e16c77f473a42ece9cb20e3e3569
Author: Andy Wingo <address@hidden>
Date:   Tue Jan 22 15:39:37 2013 +0100

    docstring in rdelim
    
    * module/ice-9/rdelim.scm: Update docstring.

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

Summary of changes:
 module/ice-9/rdelim.scm        |    4 ++--
 module/system/base/compile.scm |    2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/module/ice-9/rdelim.scm b/module/ice-9/rdelim.scm
index aace481..32908cc 100644
--- a/module/ice-9/rdelim.scm
+++ b/module/ice-9/rdelim.scm
@@ -150,8 +150,8 @@ left in the port."
 
 (define* (read-string #:optional (port (current-input-port)) (count #f))
   "Read all of the characters out of PORT and return them as a string.
-If the COUNT is present, treat it as a limit to the number of characters
-to read.  By default, there is no limit."
+If the COUNT argument is present, treat it as a limit to the number of
+characters to read.  By default, there is no limit."
   (check-arg (or (not count) (index? count)) "bad count" count)
   (let loop ((substrings '())
              (total-chars 0)
diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index f92ca7d..f3e4641 100644
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -209,7 +209,7 @@
   (let ((from (ensure-language from))
         (to (ensure-language to)))
     (let ((joint (find-language-joint from to)))
-      (with-fluids ((*current-language* from))
+      (parameterize ((current-language from))
         (let lp ((exps '()) (env #f) (cenv env))
           (let ((x (read-and-parse (current-language) port cenv)))
             (cond


hooks/post-receive
-- 
GNU Guile