HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
19301dc
)
fix some duplication in object tables
author
Andy Wingo
<wingo@pobox.com>
Sun, 8 May 2011 20:55:05 +0000
(22:55 +0200)
committer
Andy Wingo
<wingo@pobox.com>
Sun, 8 May 2011 20:55:05 +0000
(22:55 +0200)
* module/language/glil/compile-assembly.scm (build-object-table): Don't
add the same value to an object table twice.
module/language/glil/compile-assembly.scm
patch
|
blob
|
blame
|
history
diff --git
a/module/language/glil/compile-assembly.scm
b/module/language/glil/compile-assembly.scm
index
d02b903
..
a081822
100644
(file)
--- 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)