From 8eacd0e58ba045f3bb925eba341f6ef3cb747de9 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 12 Oct 2008 17:37:42 -0500
Subject: [PATCH] Add compile-dependencies? flag, can be switched off for
 debugging

---
 basis/compiler/compiler.factor | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/basis/compiler/compiler.factor b/basis/compiler/compiler.factor
index 53ac0aabb8..c94252e7ac 100644
--- a/basis/compiler/compiler.factor
+++ b/basis/compiler/compiler.factor
@@ -73,9 +73,14 @@ SYMBOL: +failed+
         ] [ drop ] if
     ] tri ;
 
+! Only switch this off for debugging.
+SYMBOL: compile-dependencies?
+
+t compile-dependencies? set-global
+
 : save-asm ( asm -- )
     [ [ code>> ] [ label>> ] bi compiled get set-at ]
-    [ calls>> [ maybe-compile ] each ]
+    [ compile-dependencies? get [ calls>> [ maybe-compile ] each ] [ drop ] if ]
     bi ;
 
 : backend ( nodes word -- )