Minor changes
parent
ce6d8ae88e
commit
f3245d2ab4
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2004, 2006 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
IN: file-responder
|
||||
USING: embedded html httpd io kernel math namespaces parser
|
||||
USING: embedded errors html httpd io kernel math namespaces parser
|
||||
sequences strings ;
|
||||
|
||||
: serving-path ( filename -- filename )
|
||||
|
|
|
@ -44,7 +44,7 @@ M: sbuf stream-read ( count sbuf -- string )
|
|||
2drop f
|
||||
] [
|
||||
swap over length min 0 <string>
|
||||
[ [ drop dup pop ] inject drop ] keep
|
||||
[ [ drop pop ] inject-with ] keep
|
||||
] if ;
|
||||
|
||||
: <string-reader> ( string -- stream )
|
||||
|
|
Loading…
Reference in New Issue