set more

1 files changed, 17 insertions, 1 deletions

diff --git a/src/set.hff b/src/set.hff
index acff95b..955eac3 100644
--- a/src/set.hff
+++ b/src/set.hff
@@ -35,12 +35,28 @@ struct Set<T, Traits> {
             self.buf->push(Traits:dup(x));
             return self.set[i] = &self.buf.dat[self.buf.len - 1];
          } else if Traits:eq(*self.set[i], x) {
-            fprintf(stderr, "found %s\n", x);
             return self.set[i];
          }
          i = (i + 1) & (self.N - 1);
       } while i != i0;
       assert(#f, "unreachable");
    }
+   
+   fn contains(self *Set, x T) bool {
+      let i0 = Traits:hash(x) & (self.N - 1);
+      let i int = i0;
+      do {
+         if self.set[i] == #null {
+            return #f;
+         } else if Traits:eq(*self.set[i], x) {
+            return #t;
+         }
+         i = (i + 1) & (self.N - 1);
+      } while i != i0;
+      assert(#f, "unreachable");
+   }
 
+   fn put(self *Set, x T) void {
+      self->intern(x);
+   }
 }