X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fmetar%2Fmetar.factor;h=230081f620c316f695095a8eddfe9a46702e9dc8;hp=d54c8c2c78d4eec541bf8b85fa6ff6658181f7f4;hb=714c6d2b9464e193e24cb45fab1961d96a9d422c;hpb=e766b83ac0fcc5857602dcfae2791be3b93602b6 diff --git a/extra/metar/metar.factor b/extra/metar/metar.factor index d54c8c2c78..230081f620 100644 --- 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" subseq-index? [ "VC" "" replace t ] [ f ] if + dup "VC" subseq-of? [ "VC" "" replace t ] [ f ] if [ (parse-weather) ] [ [ " in the vicinity" append ] when ] bi* ;