Merge branch 'master' of git://factorcode.org/git/factor into tangle

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

diff --git a/extra/semantic-db/semantic-db.factor b/extra/semantic-db/semantic-db.factor
index 2ac667a94c8922bb6aa21002aca8cb5895d32513..dad1dd39194567e1095b91575d81e0fc3afc7828 100755 (executable)
--- a/extra/semantic-db/semantic-db.factor
+++ b/extra/semantic-db/semantic-db.factor
@@ -31,7 +31,7 @@ TUPLE: arc id subject object relation ;
     arc construct-empty swap >>relation swap >>object swap >>subject ;
 
 : <id-arc> ( id -- arc )
-    arc construct-empty swap >>id ;
+    arc new swap >>id ;
 
 : delete-arc ( arc -- ) delete-tuple ;