From 21e30d86815a813aed7c099867e619e368910b64 Mon Sep 17 00:00:00 2001
From: Alex Chapman <chapman.alex@gmail.com>
Date: Wed, 9 Apr 2008 09:22:12 +1000
Subject: [PATCH] semantic-db: add node=

---
 extra/semantic-db/semantic-db.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/extra/semantic-db/semantic-db.factor b/extra/semantic-db/semantic-db.factor
index b33d795c9c..2ac667a94c 100755
--- 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 ;