steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

metar: simplify <taf-report>.

db4
John Benediktsson 2015-06-06 09:27:09 -07:00
parent 1723544b56
commit 2dba00745a
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/metar/metar.factor
View File

@ -679,8 +679,7 @@ sky-condition raw ;
[ taf-report new ] dip [ >>raw ] keep [ taf-report new ] dip [ >>raw ] keep
string-lines [ [ blank? ] trim ] map string-lines [ [ blank? ] trim ] map
rest dup first "TAF" = [ rest ] when rest dup first "TAF" = [ rest ] when
harvest unclip swap harvest unclip taf-body taf-partials ;
[ taf-body ] [ taf-partials ] bi* ;
: taf-report. ( report -- ) : taf-report. ( report -- )
[ [