diff --git a/extra/semantic-db/semantic-db.factor b/extra/semantic-db/semantic-db.factor index 2de0e1c67e..279ebcf922 100755 --- 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 ; : single-int-results ( bindings sql -- array ) f f [ do-bound-query ] with-disposal