metar: simplify <taf-report>.

diff --git a/extra/metar/metar.factor b/extra/metar/metar.factor
index 1db3e9c8456a15f65eb76e06221abde6b6afb6d9..54c26dfab46320c32613604890cf690b1514529f 100644 (file)
--- a/extra/metar/metar.factor
+++ b/extra/metar/metar.factor
@@ -679,8 +679,7 @@ sky-condition raw ;
     [ taf-report new ] dip [ >>raw ] keep
     string-lines [ [ blank? ] trim ] map
     rest dup first "TAF" = [ rest ] when
-    harvest unclip swap
-    [ taf-body ] [ taf-partials ] bi* ;
+    harvest unclip taf-body taf-partials ;
 
 : taf-report. ( report -- )
     [