[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.3-96-g2f50d0a

[Mark H Weaver]

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=2f50d0a89758894a39bcec5a94c658d63d20701b

The branch, stable-2.0 has been updated
       via  2f50d0a89758894a39bcec5a94c658d63d20701b (commit)
       via  3004fe262401f87aa92e24ec69115d9269c0df99 (commit)
       via  b72ab481cd71d5d72f501d4469ecbdf6892ffb7b (commit)
      from  848431b6b296c22cd3892ad4a70ff605f00fe060 (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 2f50d0a89758894a39bcec5a94c658d63d20701b
Author: Mark H Weaver <address@hidden>
Date:   Fri Dec 30 23:26:32 2011 -0500

    Fix documentation for vhash-fold and vhash-fold-right
    
    * doc/ref/api-compound.texi (VHashes): Add missing `init' parameter in
      documentation for vhash-fold and vhash-fold-right, and also improve
      description.
    
    * module/ice-9/vlist.scm (vhash-fold, vhash-fold-right): Rename formal
      parameter `seed' to `init', to match documentation.  Improve
      docstrings.

commit 3004fe262401f87aa92e24ec69115d9269c0df99
Author: Mark H Weaver <address@hidden>
Date:   Fri Dec 30 23:11:30 2011 -0500

    Fix comment summarizing allocation table
    
    * module/language/tree-il/analyze.scm (analyze-lexicals): Fix comment,
      which describes the compiler's allocation table, to match reality.

commit b72ab481cd71d5d72f501d4469ecbdf6892ffb7b
Author: Mark H Weaver <address@hidden>
Date:   Fri Dec 30 23:07:15 2011 -0500

    Update comment: ~/.guile-ccache => ~/.cache/guile/ccache
    
    * module/system/base/compile.scm: Update comment to match
      where the ccache dir now lives: ~/.cache/guile/ccache

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

Summary of changes:
 doc/ref/api-compound.texi           |   11 +++++++----
 module/ice-9/vlist.scm              |   21 ++++++++++++---------
 module/language/tree-il/analyze.scm |    3 ++-
 module/system/base/compile.scm      |    2 +-
 4 files changed, 22 insertions(+), 15 deletions(-)

diff --git a/doc/ref/api-compound.texi b/doc/ref/api-compound.texi
index c52fed4..da8ca91 100644
--- a/doc/ref/api-compound.texi
+++ b/doc/ref/api-compound.texi
@@ -3293,10 +3293,13 @@ Again the choice of @var{hash-proc} must be consistent 
with previous calls to
 @code{vhash-cons}.
 @end deffn
 
address@hidden {Scheme Procedure} vhash-fold proc vhash
address@hidden {Scheme Procedure} vhash-fold-right proc vhash
-Fold over the key/value elements of @var{vhash} in the given direction.
-For each pair call @var{proc} as @code{(@var{proc} key value result)}.
address@hidden {Scheme Procedure} vhash-fold proc init vhash
address@hidden {Scheme Procedure} vhash-fold-right proc init vhash
+Fold over the key/value elements of @var{vhash} in the given direction,
+with each call to @var{proc} having the form @code{(@var{proc} key value
+result)}, where @var{result} is the result of the previous call to
address@hidden and @var{init} the value of @var{result} for the first call
+to @var{proc}.
 @end deffn
 
 @deffn {Scheme Procedure} vhash-fold* proc init key vhash [equal? [hash]]
diff --git a/module/ice-9/vlist.scm b/module/ice-9/vlist.scm
index 8c7c87b..a62bf59 100644
--- a/module/ice-9/vlist.scm
+++ b/module/ice-9/vlist.scm
@@ -545,23 +545,26 @@ with @var{equal?}."
 (define vhash-delq (cut vhash-delete <> <> eq? hashq))
 (define vhash-delv (cut vhash-delete <> <> eqv? hashv))
 
-(define (vhash-fold proc seed vhash)
-  "Fold over the key/pair elements of @var{vhash}.  For each pair call
address@hidden as @code{(@var{proc} key value result)}."
+(define (vhash-fold proc init vhash)
+  "Fold over the key/pair elements of @var{vhash} from left to right, with
+each call to @var{proc} having the form @code{(@var{proc} key value result)},
+where @var{result} is the result of the previous call to @var{proc} and
address@hidden the value of @var{result} for the first call to @var{proc}."
   (vlist-fold (lambda (key+value result)
                 (proc (car key+value) (cdr key+value)
                       result))
-              seed
+              init
               vhash))
 
-(define (vhash-fold-right proc seed vhash)
-  "Fold over the key/pair elements of @var{vhash}, starting from the 0th
-element.  For each pair call @var{proc} as @code{(@var{proc} key value
-result)}."
+(define (vhash-fold-right proc init vhash)
+  "Fold over the key/pair elements of @var{vhash} from right to left, with
+each call to @var{proc} having the form @code{(@var{proc} key value result)},
+where @var{result} is the result of the previous call to @var{proc} and
address@hidden the value of @var{result} for the first call to @var{proc}."
   (vlist-fold-right (lambda (key+value result)
                       (proc (car key+value) (cdr key+value)
                             result))
-                    seed
+                    init
                     vhash))
 
 (define* (alist->vhash alist #:optional (hash hash))
diff --git a/module/language/tree-il/analyze.scm 
b/module/language/tree-il/analyze.scm
index 990994a..0470190 100644
--- a/module/language/tree-il/analyze.scm
+++ b/module/language/tree-il/analyze.scm
@@ -359,7 +359,8 @@
       (else '())))
   
   ;; allocation: sym -> {lambda -> address}
-  ;;             lambda -> (nlocs labels . free-locs)
+  ;;             lambda -> (labels . free-locs)
+  ;;             lambda-case -> (gensym . nlocs)
   (define allocation (make-hash-table))
   
   (define (allocate! x proc n)
diff --git a/module/system/base/compile.scm b/module/system/base/compile.scm
index 9439990..953c936 100644
--- a/module/system/base/compile.scm
+++ b/module/system/base/compile.scm
@@ -99,7 +99,7 @@
 ;;; files, either you know where they should go, in which case you tell
 ;;; compile-file explicitly, as in the srcdir != builddir case; or you
 ;;; don't know, in which case this function is called, and we just put
-;;; them in your own ccache dir in ~/.guile-ccache.
+;;; them in your own ccache dir in ~/.cache/guile/ccache.
 ;;;
 ;;; See also boot-9.scm:load.
 (define (compiled-file-name file)


hooks/post-receive
-- 
GNU Guile