]> gitweb.factorcode.org Git - factor.git/commitdiff
projects / factor.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: adc3a22)
Fixes
authorSlava Pestov <slava@factorcode.org>
Thu, 15 Nov 2007 09:40:23 +0000 (04:40 -0500)
committerSlava Pestov <slava@factorcode.org>
Thu, 15 Nov 2007 09:40:23 +0000 (04:40 -0500)
core/system/system-tests.factor patch | blob | history
extra/http/server/responders/responders.factor patch | blob | history
extra/io/sniffer/bsd/bsd.factor patch | blob | history

diff --git a/core/system/system-tests.factor b/core/system/system-tests.factor
index 0b2d106d357d232739f1fc51b7b6cf16883d0933..c542e68981854524315034f4dcc2bdb379b5b69d 100755 (executable)
--- 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 594454979a59e8ca3bab7a7bc2a84729594bca19..2dfbf73004e3a22d0f2fd32bda3a2e319e27b010 100644 (file)
--- a/extra/http/server/responders/responders.factor
+++ b/extra/http/server/responders/responders.factor
@@ -19,8 +19,7 @@ SYMBOL: responders
     <html> <body> <h1> write </h1> </body> </html> ;
 
 : 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 4568649d238e8c2a9c6a310ad87c892bdd4ce336..91266b7be3a41680cfbf03e600e3f508da4ccc8f 100644 (file)
--- 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" } ;
Factor programming language