[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Andy Wingo
Subject: [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.1-53-g8f6a4b2
Date: Sun, 08 May 2011 21:02:44 +0000

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".

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 
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)

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]