From d82ce045ea74e6221077da5d94efe6bacc0964e0 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 20 Nov 2018 11:41:18 -0800
Subject: [PATCH] metar: fix for timestamps like "2124" meaning "2200".

---
 extra/metar/metar.factor | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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> timestamp>rfc822 ;
+    over 24 = [
+        [ drop 0 ] dip 0 instant <timestamp> 1 days time+
+    ] [
+        0 instant <timestamp>
+    ] if timestamp>rfc822 ;
 
 CONSTANT: compass-directions H{
     { 0.0 "N" }