Merge branch 'master' of http://factorcode.org/git/factor into morse

[factor.git] / extra / semantic-db / semantic-db.factor

diff --git a/extra/semantic-db/semantic-db.factor b/extra/semantic-db/semantic-db.factor
index dad1dd39194567e1095b91575d81e0fc3afc7828..51bd94d61cef2d8ce2bf7bd114a90d9fa924c900 100755 (executable)
--- a/extra/semantic-db/semantic-db.factor
+++ b/extra/semantic-db/semantic-db.factor
@@ -96,8 +96,6 @@ arc "arc"
     node create-table arc create-table
     create-bootstrap-nodes create-bootstrap-arcs ;
 
-: param ( value key type -- param ) swapd 3array ;
-
 ! db utilities
 : results ( bindings sql -- array )
     f f <simple-statement> [ do-bound-query ] with-disposal ;
@@ -111,6 +109,9 @@ arc "arc"
 : node-results ( results -- nodes )
     [ node-result ] map ;
 
+: param ( value key type -- param )
+    swapd <sqlite-low-level-binding> ;
+
 : subjects-with-cor ( content object relation -- sql-results )
     [ id>> ] bi@
     [