steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix load errors

db4
Slava Pestov 2008-05-05 04:32:01 -05:00
parent 9b9b2747a3
commit ebb0093ab1
5 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/asn1/asn1.factor
View File

@ -98,7 +98,7 @@ DEFER: read-ber
SYMBOL: end SYMBOL: end
: (read-array) ( stream -- ) : (read-array) ( -- )
elements get element-id [ elements get element-id [
elements get element-syntax read-ber elements get element-syntax read-ber
dup end = [ drop ] [ , (read-array) ] if dup end = [ drop ] [ , (read-array) ] if
@ -106,7 +106,7 @@ SYMBOL: end
: read-array ( -- array ) [ (read-array) ] { } make ; : read-array ( -- array ) [ (read-array) ] { } make ;
: set-case ( -- ) : set-case ( -- object )
elements get element-newobj elements get element-newobj
elements get element-objtype { elements get element-objtype {
{ "boolean" [ "\0" = not ] } { "boolean" [ "\0" = not ] }

4
extra/benchmark/sockets/sockets.factor
View File

@ -1,6 +1,6 @@
USING: io.sockets io kernel math threads io.encodings.ascii USING: io.sockets io kernel math threads io.encodings.ascii
debugger tools.time prettyprint concurrency.count-downs io.streams.duplex debugger tools.time prettyprint
namespaces arrays continuations ; concurrency.count-downs namespaces arrays continuations ;
IN: benchmark.sockets IN: benchmark.sockets
SYMBOL: counter SYMBOL: counter

4
extra/http/server/cgi/cgi.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2007, 2008 Slava Pestov. ! Copyright (C) 2007, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: namespaces kernel assocs io.files combinators USING: namespaces kernel assocs io.files io.streams.duplex
arrays io.launcher io http.server.static http.server combinators arrays io.launcher io http.server.static http.server
http accessors sequences strings math.parser fry ; http accessors sequences strings math.parser fry ;
IN: http.server.cgi IN: http.server.cgi

2
extra/pack/pack.factor
View File

@ -159,7 +159,7 @@ MACRO: (unpack) ( str -- quot )
] [ ] make ] [ ] make
1quotation [ { } make ] append 1quotation [ { } make ] append
1quotation % 1quotation %
\ with-string-input , \ with-string-reader ,
] [ ] make ; ] [ ] make ;
: unpack-native ( seq str -- seq ) : unpack-native ( seq str -- seq )

5
extra/smtp/server/server.factor
View File

@ -1,7 +1,8 @@
! Copyright (C) 2007 Elie CHAFTARI ! Copyright (C) 2007 Elie CHAFTARI
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: combinators kernel prettyprint io io.timeouts io.server USING: combinators kernel prettyprint io io.timeouts io.server
sequences namespaces io.sockets continuations calendar io.encodings.ascii ; sequences namespaces io.sockets continuations calendar
io.encodings.ascii io.streams.duplex ;
IN: smtp.server IN: smtp.server
! Mock SMTP server for testing purposes. ! Mock SMTP server for testing purposes.
@ -65,7 +66,7 @@ SYMBOL: data-mode
"Starting SMTP server on port " write dup . flush "Starting SMTP server on port " write dup . flush
"127.0.0.1" swap <inet4> ascii <server> [ "127.0.0.1" swap <inet4> ascii <server> [
accept drop [ accept drop [
default-timeout 1 minutes timeouts
"220 hello\r\n" write flush "220 hello\r\n" write flush
process process
global [ flush ] bind global [ flush ] bind