factor: use ??if instead of ?if-old

[factor.git] / extra / site-watcher / db / db.factor

diff --git a/extra/site-watcher/db/db.factor b/extra/site-watcher/db/db.factor
index f34454c196d925b11e432e74b3942daacdb97452..dc11de553f2ea16be6315569af75ff1bdd3914dd 100644 (file)
--- a/extra/site-watcher/db/db.factor
+++ b/extra/site-watcher/db/db.factor
@@ -76,7 +76,7 @@ spidering-site "SPIDERING_SITE" {
     spidering-site new swap >>account-name select-tuples ;
 
 : insert-site ( url -- site )
-    <site> dup select-tuple [ ] [ dup t >>up? insert-tuple ] ?if ;
+    <site> [ select-tuple ] [ dup t >>up? insert-tuple ] ?unless ;
 
 : select-account/site ( username url -- account site )
     insert-site site-id>> ;