diff --git a/TODO.txt b/TODO.txt index 0662a4c861..1c65349f9a 100644 --- a/TODO.txt +++ b/TODO.txt @@ -1,9 +1,6 @@ + 0.87: -- command buttons: indicate shortcuts - error popups obscure input area -- ui operations: restarts are broken -- operations which call parse are being run in the wrong namespace - callback scheduling issue + 0.88: @@ -46,6 +43,7 @@ - don't end lines with literals, shuffle words or symbols? - see should try to not show ; on a line by itself - IN: on its own line if the entire 'see' form doesn't fit +- command buttons: indicate shortcuts + ui: diff --git a/core/prettyprint/backend.factor b/core/prettyprint/backend.factor index 1311be8684..09f4dde28f 100644 --- a/core/prettyprint/backend.factor +++ b/core/prettyprint/backend.factor @@ -82,12 +82,15 @@ M: dll pprint* : nesting-limit? ( -- ? ) nesting-limit get dup [ pprinter-stack get length < ] when ; +: truncated-nesting ( obj str -- ) + swap presented associate styled-text ; + : check-recursion ( obj quot -- ) nesting-limit? [ - 2drop "#" text + drop "#" truncated-nesting ] [ over recursion-check get memq? [ - 2drop "&" text + drop "&" truncated-nesting ] [ over recursion-check get push call