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

gopher: use contents now that it works.

db4
John Benediktsson 2014-12-23 19:22:35 -08:00
parent c59a025288
commit e60c661f72
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

@ -43,8 +43,7 @@ CONSTANT: A_PLUS_SOUND CHAR: <
[ dup length 1 > [ string>number ] [ first ] if ] [ dup length 1 > [ string>number ] [ first ] if ]
[ [
"?" split1 [ "\t" glue ] when* "?" split1 [ "\t" glue ] when*
"\r\n" append utf8 encode write flush "\r\n" append utf8 encode write flush contents
input-stream get (stream-contents-by-block)
] bi* ; ] bi* ;
PRIVATE> PRIVATE>