factor: use more ?if and ?unless

[factor.git] / basis / xmode / marker / marker.factor

diff --git a/basis/xmode/marker/marker.factor b/basis/xmode/marker/marker.factor
index 1799fa48a61617269a91140d01022c9be5c313df..5c211affa4ebc281c07df26b2f5b2cdd7f383607 100644 (file)
--- a/basis/xmode/marker/marker.factor
+++ b/basis/xmode/marker/marker.factor
@@ -198,11 +198,11 @@ GENERIC: handle-rule-start ( match-count rule -- )
 GENERIC: handle-rule-end ( match-count rule -- )
 
 : find-escape-rule ( -- rule )
-    context get dup
-    in-rule-set>> escape-rule>> [ ] [
+    context get
+    [ in-rule-set>> escape-rule>> ] [
         parent>> in-rule-set>>
-        dup [ escape-rule>> ] when
-    ] ?if-old ;
+        [ escape-rule>> ] ?transmute
+    ] ?unless ;
 
 : check-escape-rule ( rule -- ? )
     escape-rule>> [ find-escape-rule ] unless*