Making some scheduling assertions only run in unit tests

diff --git a/basis/compiler/cfg/scheduling/scheduling-tests.factor b/basis/compiler/cfg/scheduling/scheduling-tests.factor
new file mode 100644 (file)
index 0000000..fd61790
--- /dev/null
+++ b/basis/compiler/cfg/scheduling/scheduling-tests.factor
@@ -0,0 +1,11 @@
+USING: compiler.cfg.scheduling vocabs.loader namespaces tools.test ;
+IN: compiler.cfg.scheduling.tests
+
+! Recompile compiler.cfg.scheduling with extra tests,
+! and see if any errors come up. Back when there were
+! errors of this kind, they always surfaced this way.
+
+t check-scheduling? [
+    [ ] [ "compiler.cfg.scheduling" reload ] unit-test
+    [ ] [ "compiler.cfg.dependence" reload ] unit-test
+] with-variable

diff --git a/basis/compiler/cfg/scheduling/scheduling.factor b/basis/compiler/cfg/scheduling/scheduling.factor
index 66d6ba32b225e28f591b7120498ee2b1a272d6a7..1c6c6987f7885d843ea04ac86ae2cc866e7e2990 100644 (file)
--- a/basis/compiler/cfg/scheduling/scheduling.factor
+++ b/basis/compiler/cfg/scheduling/scheduling.factor
@@ -70,7 +70,7 @@ UNION: initial-insn
 ERROR: not-all-instructions-were-scheduled old-bb new-bb ;
 
 SYMBOL: check-scheduling?
-t check-scheduling? set-global
+f check-scheduling? set-global
 
 :: check-instructions ( new-bb old-bb -- )
     new-bb old-bb [ instructions>> ] bi@