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

terminfo: probably fix a bug where 0xfeff should be ignored also?

db4
John Benediktsson 2013-04-26 08:55:57 -07:00
parent de21951d79
commit 8d209ace8a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/terminfo/terminfo.factor
View File

@ -36,7 +36,7 @@ C: <terminfo-header> terminfo-header
boolean-bytes>> read [ 1 = ] { } map-as ; boolean-bytes>> read [ 1 = ] { } map-as ;
: read-shorts ( n -- seq' ) : read-shorts ( n -- seq' )
2 * read 2 <groups> [ le> dup 65535 = [ drop f ] when ] map ; 2 * read 2 <groups> [ le> dup 65534 >= [ drop f ] when ] map ;
: align-even-bytes ( header -- ) : align-even-bytes ( header -- )
[ names-bytes>> ] [ boolean-bytes>> ] bi + odd? [ names-bytes>> ] [ boolean-bytes>> ] bi + odd?