""

svn path=/trunk/; revision=297

1 files changed, 9 insertions, 0 deletions

diff --git a/externals/grill/pool/pool.cpp b/externals/grill/pool/pool.cpp
index 21eaf279..9c30603c 100644
--- a/externals/grill/pool/pool.cpp
+++ b/externals/grill/pool/pool.cpp
@@ -205,6 +205,15 @@ poolval *pooldir::RefVal(const A &key)
 	return c || !ix?NULL:ix;
 }
 
+poolval *pooldir::RefVali(I rix)
+{
+	I c = 0;
+	poolval *ix = vals;
+	for(; ix && c < rix; ix = ix->nxt,++c) {}
+
+	return c == rix?ix:NULL;
+}
+
 flext::AtomList *pooldir::PeekVal(const A &key)
 {
 	poolval *ix = RefVal(key);