fix stack comments

cvs
Slava Pestov 2006-01-19 23:19:55 +00:00
parent c156c09a42
commit 2632d3e524
2 changed files with 2 additions and 5 deletions

View File

@ -46,9 +46,6 @@
- implement 3.3 floor 4.7 ceiling
- fix stack effect comment spacing in help for words without docs,
eg (object -- object object) -> ( object -- object object )
ALL TESTS BELOW FAIL ON x86 linux 32bit
- float not commutative bug
: a 237241607 1516.925984289192 3036109462846 913470293/554864

View File

@ -30,11 +30,11 @@ sequences strings styles words ;
: effect>string ( effect -- string )
[
"(" %
"( " %
dup first stack-picture %
" -- " %
second stack-picture %
")" %
" )" %
] "" make ;
: stack-effect ( word -- string )