From 0c77a3b3be9704be91603d27ecc19179c940383f Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 16 Mar 2009 06:27:01 -0500 Subject: [PATCH] compiler: use call( instead of assert-depth --- basis/compiler/compiler.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/compiler/compiler.factor b/basis/compiler/compiler.factor index 349d50fe35..f9627752e7 100644 --- a/basis/compiler/compiler.factor +++ b/basis/compiler/compiler.factor @@ -2,7 +2,7 @@ ! See http://factorcode.org/license.txt for BSD license. USING: accessors kernel namespaces arrays sequences io words fry continuations vocabs assocs dlists definitions math graphs generic -combinators deques search-deques macros io stack-checker +combinators deques search-deques macros io stack-checker call stack-checker.state stack-checker.inlining combinators.short-circuit compiler.errors compiler.units compiler.tree.builder compiler.tree.optimizer compiler.cfg.builder compiler.cfg.optimizer @@ -111,7 +111,7 @@ t compile-dependencies? set-global ] with-return ; : compile-loop ( deque -- ) - [ (compile) yield-hook get assert-depth ] slurp-deque ; + [ (compile) yield-hook get call( -- ) ] slurp-deque ; : decompile ( word -- ) f 2array 1array modify-code-heap ;