Nicer sheet. implementation

slava 2006-08-01 01:08:25 +00:00
parent 25f4e1e425
commit f3bd44083d
2 changed files with 8 additions and 5 deletions

View File

@ -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

View File

@ -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. ;