add advanced-select word

diff --git a/extra/db/tuples/tuples.factor b/extra/db/tuples/tuples.factor
index b7bf6a7fbe9650751084f4b027cdd16f9ac3aae6..09fd63b2333b8a241087f8441f2e976af6861d49 100755 (executable)
--- 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 ;