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

[factor.git] / basis / ui / operations / operations.factor

diff --git a/basis/ui/operations/operations.factor b/basis/ui/operations/operations.factor
index b80db4110b5bfa7074c1c3112a3cf8ca996a322e..cffee614fff9c9b29eefcff0fde44e3f0b479d7b 100644 (file)
--- a/basis/ui/operations/operations.factor
+++ b/basis/ui/operations/operations.factor
@@ -54,9 +54,8 @@ operations [ <linked-hash> ] initialize
     dup primary-operation invoke-command ;
 
 : secondary-operation ( obj -- operation )
-    dup
-    [ command>> +secondary+ word-prop ] find-operation
-    [ ] [ primary-operation ] ?if ;
+    [ [ command>> +secondary+ word-prop ] find-operation ]
+    [ primary-operation ] ?unless ;
 
 : invoke-secondary-operation ( obj -- )
     dup secondary-operation invoke-command ;