fix httpd load issues

cvs
Slava Pestov 2006-01-13 04:01:12 +00:00
parent 554a27029c
commit 27c570e460
4 changed files with 5 additions and 6 deletions

View File

@ -21,7 +21,7 @@
! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
IN: cont-responder IN: cont-responder
USING: http httpd math random namespaces io USING: http httpd math namespaces io
lists strings kernel html hashtables lists strings kernel html hashtables
parser generic sequences ; parser generic sequences ;

View File

@ -2,8 +2,7 @@
! See http://factor.sf.net/license.txt for BSD license. ! See http://factor.sf.net/license.txt for BSD license.
IN: httpd IN: httpd
USING: browser-responder cont-responder file-responder kernel USING: browser-responder cont-responder file-responder kernel
namespaces prettyprint quit-responder resource-responder namespaces prettyprint ;
test-responder ;
#! Remove all existing responders, and create a blank #! Remove all existing responders, and create a blank
#! responder table. #! responder table.

View File

@ -2,7 +2,7 @@
! See http://factor.sf.net/license.txt for BSD license. ! See http://factor.sf.net/license.txt for BSD license.
IN: html IN: html
USING: generic hashtables http io kernel lists math namespaces USING: generic hashtables http io kernel lists math namespaces
presentation sequences strings styles words ; sequences strings styles words ;
: html-entities ( -- alist ) : html-entities ( -- alist )
H{ H{

View File

@ -1,7 +1,7 @@
! Copyright (C) 2004, 2005 Slava Pestov. ! Copyright (C) 2004, 2005 Slava Pestov.
! See http://factor.sf.net/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
IN: httpd IN: httpd
USING: io hashtables kernel lists namespaces ; USING: io hashtables kernel sequences math namespaces ;
: file-extension ( filename -- extension ) : file-extension ( filename -- extension )
"." split dup length 1 <= [ drop f ] [ peek ] if ; "." split dup length 1 <= [ drop f ] [ peek ] if ;