Nicer sheet. implementation
parent
25f4e1e425
commit
f3bd44083d
|
@ -6,7 +6,6 @@
|
|||
- gdb triggers 'mutliple i/o ops on port' error
|
||||
- "localhost" 50 <client> won't fail
|
||||
- factorcode httpd crashed: bad file descriptor
|
||||
- one-column table doesn't need borders...?
|
||||
- editor:
|
||||
- scroll to caret
|
||||
- better listener multi-line expression handling
|
||||
|
|
|
@ -77,10 +77,14 @@ M: vocab-link summary ( vocab-link -- )
|
|||
DEFER: describe
|
||||
|
||||
: sheet. ( sheet -- )
|
||||
flip
|
||||
H{ { table-gap { 10 0 } } }
|
||||
[ dup unparse-short swap write-object ]
|
||||
tabular-output ;
|
||||
flip dup empty? [
|
||||
drop
|
||||
] [
|
||||
dup first length 1 =
|
||||
{ 0 0 } { 10 0 } ? table-gap associate
|
||||
[ dup unparse-short swap write-object ]
|
||||
tabular-output
|
||||
] if ;
|
||||
|
||||
: describe ( object -- ) dup summary print sheet sheet. ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue