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.

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)