diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt index 9491ed3795..e18fb04798 100644 --- a/TODO.FACTOR.txt +++ b/TODO.FACTOR.txt @@ -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 diff --git a/library/syntax/see.factor b/library/syntax/see.factor index 769be52646..b8b80fa001 100644 --- a/library/syntax/see.factor +++ b/library/syntax/see.factor @@ -30,11 +30,11 @@ sequences strings styles words ; : effect>string ( effect -- string ) [ - "(" % + "( " % dup first stack-picture % " -- " % second stack-picture % - ")" % + " )" % ] "" make ; : stack-effect ( word -- string )