semantic-db: add node=

2008-04-09 09:22:12 +10:00 · 2008-04-09 09:22:12 +10:00 · 21e30d8681
parent d916fd7a2e
commit 21e30d8681
1 changed files with 2 additions and 0 deletions
--- 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 ;