compiler.tree.debugger: disable length limit when printing optimized. quotation

db4
Slava Pestov 2011-10-29 16:24:28 -07:00
parent a1878ea818
commit e5a308d56a
1 changed files with 5 additions and 3 deletions

View File

@ -2,8 +2,8 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel assocs match fry accessors namespaces make effects USING: kernel assocs match fry accessors namespaces make effects
sequences sequences.private quotations generic macros arrays sequences sequences.private quotations generic macros arrays
prettyprint prettyprint.backend prettyprint.custom prettyprint prettyprint.backend prettyprint.config
prettyprint.sections math words combinators prettyprint.custom prettyprint.sections math words combinators
combinators.short-circuit io sorting hints sets combinators.short-circuit io sorting hints sets
compiler.tree compiler.tree
compiler.tree.recursive compiler.tree.recursive
@ -141,7 +141,9 @@ GENERIC: optimized. ( quot/word -- )
M: word optimized. specialized-def optimized. ; M: word optimized. specialized-def optimized. ;
M: callable optimized. build-tree optimize-tree nodes>quot . ; M: callable optimized.
build-tree optimize-tree nodes>quot
[ length-limit off . ] with-scope ;
SYMBOL: words-called SYMBOL: words-called
SYMBOL: generics-called SYMBOL: generics-called