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

terminfo: 1 head* is but-last

db4
Jon Harper 2013-04-26 20:57:54 +03:00 committed by John Benediktsson
parent 5054b6b3de
commit a902428f62
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

@ -30,7 +30,7 @@ C: <terminfo-header> terminfo-header
5 firstn <terminfo-header> ; 5 firstn <terminfo-header> ;
: read-names ( header -- names ) : read-names ( header -- names )
names-bytes>> read 1 head* "|" split [ >string ] map ; names-bytes>> read but-last "|" split [ >string ] map ;
: read-booleans ( header -- booleans ) : read-booleans ( header -- booleans )
boolean-bytes>> read [ 1 = ] { } map-as ; boolean-bytes>> read [ 1 = ] { } map-as ;