diff --git a/extra/metar/metar.factor b/extra/metar/metar.factor index fc6df7b008..e4a98b8e99 100644 --- a/extra/metar/metar.factor +++ b/extra/metar/metar.factor @@ -141,7 +141,11 @@ MEMO: glossary ( -- assoc ) : parse-timestamp ( str -- str' ) [ now [ year>> ] [ month>> ] bi ] dip 2 cut 2 cut 2 cut drop [ string>number ] tri@ - 0 instant timestamp>rfc822 ; + over 24 = [ + [ drop 0 ] dip 0 instant 1 days time+ + ] [ + 0 instant + ] if timestamp>rfc822 ; CONSTANT: compass-directions H{ { 0.0 "N" }