semantic-db: trivial change

diff --git a/extra/semantic-db/semantic-db.factor b/extra/semantic-db/semantic-db.factor
index d4e2c1ed1a7ad8905743d7c71ca87a5885fcc979..ee276260f3fe7c573a446edca3d237abd20d74cd 100644 (file)
--- a/extra/semantic-db/semantic-db.factor
+++ b/extra/semantic-db/semantic-db.factor
@@ -23,7 +23,7 @@ node "node"
     <node> dup insert-tuple id>> ;
 
 : node-content ( id -- str )
-    f <node> swap >>id select-tuple content>> ;
+    <id-node> select-tuple content>> ;
 
 TUPLE: arc id subject object relation ;