From e5a308d56a8cca3dd76d25827c7fc36035825836 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 29 Oct 2011 16:24:28 -0700 Subject: [PATCH] compiler.tree.debugger: disable length limit when printing optimized. quotation --- basis/compiler/tree/debugger/debugger.factor | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/basis/compiler/tree/debugger/debugger.factor b/basis/compiler/tree/debugger/debugger.factor index 06b5cc927c..0c2ae381f7 100644 --- a/basis/compiler/tree/debugger/debugger.factor +++ b/basis/compiler/tree/debugger/debugger.factor @@ -2,8 +2,8 @@ ! See http://factorcode.org/license.txt for BSD license. USING: kernel assocs match fry accessors namespaces make effects sequences sequences.private quotations generic macros arrays -prettyprint prettyprint.backend prettyprint.custom -prettyprint.sections math words combinators +prettyprint prettyprint.backend prettyprint.config +prettyprint.custom prettyprint.sections math words combinators combinators.short-circuit io sorting hints sets compiler.tree compiler.tree.recursive @@ -141,7 +141,9 @@ GENERIC: optimized. ( quot/word -- ) 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: generics-called