parent
b8794d8bee
commit
a5741f0c70
|
@ -1,7 +1,7 @@
|
|||
! All Talk
|
||||
|
||||
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: password
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
IN: network-util
|
||||
USING: parser sequences ;
|
||||
USING: parser sequences words compiler ;
|
||||
|
||||
[
|
||||
"contrib/crypto/load.factor"
|
||||
|
@ -7,3 +7,5 @@ USING: parser sequences ;
|
|||
"contrib/aim/aim.factor"
|
||||
] [ run-file ] each
|
||||
|
||||
"aim-internals" words [ try-compile ] each
|
||||
"aim" words [ try-compile ] each
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
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: unscoped-stream
|
||||
|
@ -31,7 +31,7 @@ SYMBOL: unscoped-stack
|
|||
|
||||
! TODO: make this work for types other than ""
|
||||
: papply ( seq seq -- seq )
|
||||
[ [ 2list call % ] 2each ] "" make ;
|
||||
[ [ 2array >list call % ] 2each ] "" make ;
|
||||
|
||||
: writeln ( string -- )
|
||||
write terpri ;
|
||||
|
|
Loading…
Reference in New Issue