semantic-db: add node=

diff --git a/extra/semantic-db/semantic-db.factor b/extra/semantic-db/semantic-db.factor
index b33d795c9c762b74fd46d5352e3d1fc5e3a4fbc7..2ac667a94c8922bb6aa21002aca8cb5895d32513 100755 (executable)
--- a/extra/semantic-db/semantic-db.factor
+++ b/extra/semantic-db/semantic-db.factor
@@ -22,6 +22,8 @@ node "node"
 : node-content ( node -- content )
     dup content>> [ nip ] [ select-tuple content>> ] if* ;
 
+: node= ( node node -- ? ) [ id>> ] bi@ = ;
+
 ! TODO: get rid of arc id and write our own sql
 TUPLE: arc id subject object relation ;