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

stdio, unparser vocabs removed 

2list removed
cvs
Doug Coleman 2005-12-20 21:39:44 +00:00
parent b8794d8bee
commit a5741f0c70
3 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/aim/aim.factor
View File

@ -1,7 +1,7 @@
! All Talk ! All Talk
IN: aim-internals IN: aim-internals
USING: kernel sequences lists stdio prettyprint strings namespaces math unparser threads vectors errors parser interpreter test io crypto words hashtables inspector aim-internals generic queues arrays ; USING: kernel sequences lists prettyprint strings namespaces math threads vectors errors parser interpreter test io crypto words hashtables inspector aim-internals generic queues arrays ;
SYMBOL: username SYMBOL: username
SYMBOL: password SYMBOL: password

4
contrib/aim/load.factor
View File

@ -1,5 +1,5 @@
IN: network-util IN: network-util
USING: parser sequences ; USING: parser sequences words compiler ;
[ [
"contrib/crypto/load.factor" "contrib/crypto/load.factor"
@ -7,3 +7,5 @@ USING: parser sequences ;
"contrib/aim/aim.factor" "contrib/aim/aim.factor"
] [ run-file ] each ] [ run-file ] each
"aim-internals" words [ try-compile ] each
"aim" words [ try-compile ] each

4
contrib/aim/net-bytes.factor
View File

@ -1,5 +1,5 @@
IN: aim-internals IN: aim-internals
USING: kernel sequences lists stdio prettyprint strings namespaces math unparser threads vectors errors parser interpreter test io crypto ; USING: kernel sequences lists prettyprint strings namespaces math threads vectors errors parser interpreter test io crypto arrays ;
SYMBOL: big-endian t big-endian set SYMBOL: big-endian t big-endian set
SYMBOL: unscoped-stream SYMBOL: unscoped-stream
@ -31,7 +31,7 @@ SYMBOL: unscoped-stack
! TODO: make this work for types other than "" ! TODO: make this work for types other than ""
: papply ( seq seq -- seq ) : papply ( seq seq -- seq )
[ [ 2list call % ] 2each ] "" make ; [ [ 2array >list call % ] 2each ] "" make ;
: writeln ( string -- ) : writeln ( string -- )
write terpri ; write terpri ;