threads. word now prints presentations
parent
6e4ba7af14
commit
3ffe8f97e4
|
@ -6,9 +6,8 @@ io io.styles sequences assocs namespaces sorting boxes ;
|
||||||
|
|
||||||
: thread. ( thread -- )
|
: thread. ( thread -- )
|
||||||
dup thread-id pprint-cell
|
dup thread-id pprint-cell
|
||||||
dup thread-name pprint-cell
|
dup thread-name over [ write-object ] with-cell
|
||||||
thread-state "running" or
|
thread-state "running" or [ write ] with-cell ;
|
||||||
[ write ] with-cell ;
|
|
||||||
|
|
||||||
: threads. ( -- )
|
: threads. ( -- )
|
||||||
standard-table-style [
|
standard-table-style [
|
||||||
|
|
Loading…
Reference in New Issue