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

gopher: change gopher-text to use split1.

db4
John Benediktsson 2014-12-20 12:11:23 -08:00
parent ee6ae8a63c
commit c45e4e1c68
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/gopher/gopher.factor
View File

@ -81,8 +81,7 @@ M: gopher-link >url
] if >url ; ] if >url ;
: gopher-text ( object -- lines ) : gopher-text ( object -- lines )
utf8 decode string-lines utf8 decode string-lines { "." } split1 drop ;
"." over index [ head ] when* ;
: gopher-gif ( object -- image ) : gopher-gif ( object -- image )
"gif" (image-class) load-image* ; "gif" (image-class) load-image* ;