fix semantic-db

2008-04-21 16:55:27 -05:00 · 2008-04-21 16:55:27 -05:00 · f7bb19724d
parent 3e3397ccb9
commit f7bb19724d
1 changed files with 1 additions and 1 deletions
--- a/extra/semantic-db/semantic-db.factor
+++ b/extra/semantic-db/semantic-db.factor
@ -76,7 +76,7 @@ arc "arc"
    create-node-table create-arc-table create-bootstrap-nodes create-bootstrap-arcs ;

 : param ( value key type -- param )
-    swapd 3array ;
+    swapd <sqlite-low-level-binding> ;

 : single-int-results ( bindings sql -- array )
    f f <simple-statement> [ do-bound-query ] with-disposal