[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.1-53-g8f6a4b2

[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=8f6a4b248b12db2c56ab29e909ba1441aa8f512d

The branch, stable-2.0 has been updated
       via  8f6a4b248b12db2c56ab29e909ba1441aa8f512d (commit)
      from  19301dc56d297a24eedc48928bb1b7df40cd4688 (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 8f6a4b248b12db2c56ab29e909ba1441aa8f512d
Author: Andy Wingo <address@hidden>
Date:   Sun May 8 22:55:05 2011 +0200

    fix some duplication in object tables
    
    * module/language/glil/compile-assembly.scm (build-object-table): Don't
      add the same value to an object table twice.

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

Summary of changes:
 module/language/glil/compile-assembly.scm |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/module/language/glil/compile-assembly.scm 
b/module/language/glil/compile-assembly.scm
index d02b903..a081822 100644
--- a/module/language/glil/compile-assembly.scm
+++ b/module/language/glil/compile-assembly.scm
@@ -190,7 +190,9 @@
 ;;
 (define (build-object-table x)
   (define (add store x)
-    (vhash-cons x (1+ (vlist-length store)) store))
+    (if (vhash-assoc x store)
+        store
+        (vhash-cons x (1+ (vlist-length store)) store)))
   (record-case x
     ((<glil-program> meta body)
      (fold (lambda (x table)


hooks/post-receive
-- 
GNU Guile