steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add another debug var

db4
Slava Pestov 2008-11-02 23:25:42 -06:00
parent 445e353337
commit 449c1191cc
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/compiler/compiler.factor
View File

@ -3,12 +3,13 @@
USING: accessors kernel namespaces arrays sequences io debugger USING: accessors kernel namespaces arrays sequences io debugger
words fry continuations vocabs assocs dlists definitions math words fry continuations vocabs assocs dlists definitions math
threads graphs generic combinators deques search-deques threads graphs generic combinators deques search-deques
stack-checker stack-checker.state stack-checker.inlining prettyprint io stack-checker stack-checker.state
compiler.errors compiler.units compiler.tree.builder stack-checker.inlining compiler.errors compiler.units
compiler.tree.optimizer compiler.cfg.builder compiler.tree.builder compiler.tree.optimizer
compiler.cfg.optimizer compiler.cfg.linearization compiler.cfg.builder compiler.cfg.optimizer
compiler.cfg.two-operand compiler.cfg.linear-scan compiler.cfg.linearization compiler.cfg.two-operand
compiler.cfg.stack-frame compiler.codegen ; compiler.cfg.linear-scan compiler.cfg.stack-frame
compiler.codegen ;
IN: compiler IN: compiler
SYMBOL: compile-queue SYMBOL: compile-queue
@ -43,7 +44,10 @@ SYMBOL: +failed+
[ "compiled-effect" set-word-prop ] [ "compiled-effect" set-word-prop ]
2bi ; 2bi ;
SYMBOL: trace-compilation?
: start ( word -- ) : start ( word -- )
trace-compilation? get [ dup . flush ] when
H{ } clone dependencies set H{ } clone dependencies set
H{ } clone generic-dependencies set H{ } clone generic-dependencies set
f swap compiler-error ; f swap compiler-error ;