From 72ea94384dca1ac4d394432d821a69d86f60d4e1 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 15 Nov 2007 04:40:23 -0500 Subject: [PATCH] Fixes --- core/system/system-tests.factor | 4 ++-- extra/http/server/responders/responders.factor | 3 +-- extra/io/sniffer/bsd/bsd.factor | 3 +-- 3 files changed, 4 insertions(+), 6 deletions(-) diff --git a/core/system/system-tests.factor b/core/system/system-tests.factor index 0b2d106d35..c542e68981 100755 --- a/core/system/system-tests.factor +++ b/core/system/system-tests.factor @@ -1,6 +1,6 @@ -USING: math tools.test system ; +USING: math tools.test system prettyprint ; IN: temporary [ t ] [ cell integer? ] unit-test [ t ] [ bootstrap-cell integer? ] unit-test -[ ] [ os-env . ] unit-test +[ ] [ os-envs . ] unit-test diff --git a/extra/http/server/responders/responders.factor b/extra/http/server/responders/responders.factor index 594454979a..2dfbf73004 100644 --- a/extra/http/server/responders/responders.factor +++ b/extra/http/server/responders/responders.factor @@ -19,8 +19,7 @@ SYMBOL: responders

write

; : error-head ( error -- ) - dup log-error - dup response + dup log-error response H{ { "Content-Type" "text/html" } } print-header nl ; : httpd-error ( error -- ) diff --git a/extra/io/sniffer/bsd/bsd.factor b/extra/io/sniffer/bsd/bsd.factor index 4568649d23..91266b7be3 100644 --- a/extra/io/sniffer/bsd/bsd.factor +++ b/extra/io/sniffer/bsd/bsd.factor @@ -7,8 +7,7 @@ sequences ; QUALIFIED: unix IN: io.sniffer.bsd -M: unix-io (handle-destructor) ( obj -- ) - destructor-obj close drop ; +M: unix-io destruct-handle ( obj -- ) close drop ; C-UNION: ifreq_props "sockaddr-in" "short" "int" "caddr_t" ; C-STRUCT: ifreq { { "char" 16 } "name" } { "ifreq_props" "props" } ;