core: find-subseq -> subsequence-starts, find-subseq-from -> subsequence-starts-from

[factor.git] / extra / metar / metar.factor

diff --git a/extra/metar/metar.factor b/extra/metar/metar.factor
index d88249050352269fb03fd8e07b3c4546f37d4291..c228fa9b9b1d630b577c8ce9b69d02fef5514978 100644 (file)
--- a/extra/metar/metar.factor
+++ b/extra/metar/metar.factor
@@ -282,7 +282,7 @@ CONSTANT: compass-directions H{
     ] if ;
 
 : parse-weather ( str -- str' )
-    dup "VC" find-subseq? [ "VC" "" replace t ] [ f ] if
+    dup "VC" subsequence? [ "VC" "" replace t ] [ f ] if
     [ (parse-weather) ]
     [ [ " in the vicinity" append ] when ] bi* ;