compiler.cfg.*: better stack effect for end-stack-analysis

basis/compiler/cfg/builder/builder.factor

@@ -19,9 +19,10 @@ SYMBOL: loops
 : with-cfg-builder ( nodes word label quot: ( ..a block -- ..b ) -- )
     '[
         begin-stack-analysis
-        begin-cfg dup procedures get push
-        entry>> @
-        end-stack-analysis
+        begin-cfg
+        [ procedures get push ]
+        [ entry>> @ ]
+        [ end-stack-analysis ] tri
     ] with-scope ; inline
 
 : with-dummy-cfg-builder ( node quot -- )

basis/compiler/cfg/stacks/stacks-docs.factor

@@ -1,4 +1,4 @@
-USING: compiler.cfg.instructions compiler.cfg.registers
+USING: compiler.cfg compiler.cfg.instructions compiler.cfg.registers
 compiler.cfg.stacks.local compiler.tree help.markup help.syntax math
 sequences ;
 IN: compiler.cfg.stacks
@@ -12,6 +12,7 @@ HELP: begin-stack-analysis
 { $see-also height-state } ;
 
 HELP: end-stack-analysis
+{ $values { "cfg" cfg } }
 { $description "Ends the stack analysis of the current cfg. This is the last step of the cfg construction (but comes before all optimization passes)." } ;
 
 HELP: adjust-d

basis/compiler/cfg/stacks/stacks.factor

@@ -1,9 +1,9 @@
 ! Copyright (C) 2008, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors biassocs compiler.cfg compiler.cfg.registers
+USING: accessors biassocs compiler.cfg.registers
 compiler.cfg.stacks.finalize compiler.cfg.stacks.global
-compiler.cfg.stacks.height compiler.cfg.stacks.local compiler.cfg.utilities
-fry kernel math namespaces sequences ;
+compiler.cfg.stacks.height compiler.cfg.stacks.local
+compiler.cfg.utilities kernel math namespaces sequences ;
 IN: compiler.cfg.stacks
 
 : begin-stack-analysis ( -- )
@@ -15,8 +15,7 @@ IN: compiler.cfg.stacks
     H{ } clone kill-sets set
     initial-height-state height-state set ;
 
-: end-stack-analysis ( -- )
-    cfg get
+: end-stack-analysis ( cfg -- )
     {
         compute-anticip-sets
         compute-live-sets