From 96ce30a534f744cc160b1075bd92de6525805f9d Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 1 Jun 2008 11:25:09 -0500
Subject: [PATCH] add advanced-select word

---
 extra/db/tuples/tuples.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/extra/db/tuples/tuples.factor b/extra/db/tuples/tuples.factor
index b7bf6a7fbe..09fd63b233 100755
--- a/extra/db/tuples/tuples.factor
+++ b/extra/db/tuples/tuples.factor
@@ -154,3 +154,7 @@ M: retryable execute-statement* ( statement type -- )
 : select-tuple ( tuple -- tuple/f )
     dup dup class f f f 1 <advanced-select-statement>
     do-select ?first ;
+
+: advanced-select ( tuple groups order offset limit -- tuples )
+    >r >r >r >r dup dup class r> r> r> r>
+    <advanced-select-statement> do-select ;