Using "same?" in more places.

[factor.git] / unmaintained / semantic-db / semantic-db.factor

diff --git a/unmaintained/semantic-db/semantic-db.factor b/unmaintained/semantic-db/semantic-db.factor
index e3d13108ade2e963c6b610da79f0115b785c55ae..2432dce42015c9eec5d0bccc69c023aad6edc212 100644 (file)
--- a/unmaintained/semantic-db/semantic-db.factor
+++ b/unmaintained/semantic-db/semantic-db.factor
@@ -22,7 +22,7 @@ node "node"
 : node-content ( node -- content )
     dup content>> [ nip ] [ select-tuple content>> ] if* ;
 
-: node= ( node node -- ? ) [ id>> ] bi@ = ;
+: node= ( node node -- ? ) [ id>> ] same? ;
 
 ! TODO: get rid of arc id and write our own sql
 TUPLE: arc id subject object relation ;