Fixes
parent
adc3a2228b
commit
72ea94384d
|
@ -1,6 +1,6 @@
|
||||||
USING: math tools.test system ;
|
USING: math tools.test system prettyprint ;
|
||||||
IN: temporary
|
IN: temporary
|
||||||
|
|
||||||
[ t ] [ cell integer? ] unit-test
|
[ t ] [ cell integer? ] unit-test
|
||||||
[ t ] [ bootstrap-cell integer? ] unit-test
|
[ t ] [ bootstrap-cell integer? ] unit-test
|
||||||
[ ] [ os-env . ] unit-test
|
[ ] [ os-envs . ] unit-test
|
||||||
|
|
|
@ -19,8 +19,7 @@ SYMBOL: responders
|
||||||
<html> <body> <h1> write </h1> </body> </html> ;
|
<html> <body> <h1> write </h1> </body> </html> ;
|
||||||
|
|
||||||
: error-head ( error -- )
|
: error-head ( error -- )
|
||||||
dup log-error
|
dup log-error response
|
||||||
dup response
|
|
||||||
H{ { "Content-Type" "text/html" } } print-header nl ;
|
H{ { "Content-Type" "text/html" } } print-header nl ;
|
||||||
|
|
||||||
: httpd-error ( error -- )
|
: httpd-error ( error -- )
|
||||||
|
|
|
@ -7,8 +7,7 @@ sequences ;
|
||||||
QUALIFIED: unix
|
QUALIFIED: unix
|
||||||
IN: io.sniffer.bsd
|
IN: io.sniffer.bsd
|
||||||
|
|
||||||
M: unix-io (handle-destructor) ( obj -- )
|
M: unix-io destruct-handle ( obj -- ) close drop ;
|
||||||
destructor-obj close drop ;
|
|
||||||
|
|
||||||
C-UNION: ifreq_props "sockaddr-in" "short" "int" "caddr_t" ;
|
C-UNION: ifreq_props "sockaddr-in" "short" "int" "caddr_t" ;
|
||||||
C-STRUCT: ifreq { { "char" 16 } "name" } { "ifreq_props" "props" } ;
|
C-STRUCT: ifreq { { "char" 16 } "name" } { "ifreq_props" "props" } ;
|
||||||
|
|
Loading…
Reference in New Issue