factor: use new words

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

diff --git a/basis/ui/images/images.factor b/basis/ui/images/images.factor
index 79ea0a869190cf652f105e8a6300b0f8be8660b1..b11520e390ff21a5bd93e5b26ab8f075a231a5ce 100644 (file)
--- a/basis/ui/images/images.factor
+++ b/basis/ui/images/images.factor
@@ -12,7 +12,7 @@ C: <image-name> image-name
 <PRIVATE
 
 MEMO: cached-image-path ( path -- image )
-    [ load-image ] [ "@2x" swap subseq? >>2x? ] bi ;
+    [ load-image ] [ "@2x" find-subseq? >>2x? ] bi ;
 
 PRIVATE>