compiler: fix PRIVATE docs.

diff --git a/basis/compiler/cfg/dataflow-analysis/dataflow-analysis-docs.factor b/basis/compiler/cfg/dataflow-analysis/dataflow-analysis-docs.factor
index 74fa8fd8aef21b63beba98f3372a60618e2e8cff..9513f130f458ac0fcfee960811f6ec6765b4ccba 100644 (file)
--- a/basis/compiler/cfg/dataflow-analysis/dataflow-analysis-docs.factor
+++ b/basis/compiler/cfg/dataflow-analysis/dataflow-analysis-docs.factor
@@ -1,5 +1,5 @@
-USING: classes compiler.cfg help.markup help.syntax sequences ;
-IN: compiler.cfg.dataflow-analysis
+USING: classes compiler.cfg compiler.cfg.dataflow-analysis
+compiler.cfg.dataflow-analysis.private help.markup help.syntax sequences ;
 
 HELP: predecessors
 { $values { "bb" basic-block } { "dfa" "a dataflow analysis symbol" } { "seq" sequence } }
@@ -29,8 +29,6 @@ HELP: join-sets
 { $see-also transfer-set } ;
 
 
-<PRIVATE
-
 HELP: run-dataflow-analysis
 { $values
   { "cfg" cfg }
@@ -40,8 +38,6 @@ HELP: run-dataflow-analysis
 }
 { $description "Runs the given dataflow analysis on the cfg." } ;
 
-PRIVATE>
-
 HELP: FORWARD-ANALYSIS:
 { $syntax "FORWARD-ANALYSIS: word" }
 { $values { "word" "name of the compiler pass" } }

diff --git a/basis/compiler/cfg/gc-checks/gc-checks-docs.factor b/basis/compiler/cfg/gc-checks/gc-checks-docs.factor
index 9cd6cda40cdddfaf3a9a5ffb262595e61fc85278..943f6f15f0fd122be016c6cdbd48d6dc82751fdb 100644 (file)
--- a/basis/compiler/cfg/gc-checks/gc-checks-docs.factor
+++ b/basis/compiler/cfg/gc-checks/gc-checks-docs.factor
@@ -1,8 +1,6 @@
-USING: compiler.cfg compiler.cfg.instructions help.markup help.syntax kernel
-layouts math sequences slots.private ;
-IN: compiler.cfg.gc-checks
-
-<PRIVATE
+USING: compiler.cfg compiler.cfg.gc-checks compiler.cfg.gc-checks.private
+compiler.cfg.instructions help.markup help.syntax kernel layouts math sequences
+slots.private ;
 
 HELP: add-gc-checks
 { $values { "insns-seq" "a sequence of instruction sequences" } }
@@ -40,8 +38,6 @@ HELP: insert-gc-checks
 { $values { "cfg" cfg } }
 { $description "Inserts gc checks in each " { $link basic-block } " in the cfg where they are needed." } ;
 
-PRIVATE>
-
 HELP: process-block
 { $values { "bb" basic-block } }
 { $description "Process a block that needs a gc check. New blocks are allocated and connected for the gc branches." } ;