Image size reduction

diff --git a/basis/compiler/compiler.factor b/basis/compiler/compiler.factor
index d340c216633c3551c4cbfa80163279fc338d7999..2dd6e440d5d1f4a22f43a46ff129817337a24344 100755 (executable)
--- a/basis/compiler/compiler.factor
+++ b/basis/compiler/compiler.factor
@@ -43,8 +43,8 @@ SYMBOL: +failed+
     [
         dup crossref?
         [
-            dependencies get
-            generic-dependencies get
+            dependencies get >alist
+            generic-dependencies get >alist
             compiled-xref
         ] [ drop ] if
     ] tri ;

diff --git a/basis/stack-checker/state/state.factor b/basis/stack-checker/state/state.factor
index 3d3db980e1db0f9d39ccf1564372ca6d73874e6d..0d0de7f19b1faed6bc497d4c21035c2494dd3492 100755 (executable)
--- a/basis/stack-checker/state/state.factor
+++ b/basis/stack-checker/state/state.factor
@@ -89,8 +89,11 @@ SYMBOL: meta-r
 SYMBOL: dependencies
 
 : depends-on ( word how -- )
-    dependencies get dup
-    [ swap '[ , strongest-dependency ] change-at ] [ 3drop ] if ;
+    over primitive? [ 2drop ] [
+        dependencies get dup [
+            swap '[ , strongest-dependency ] change-at
+        ] [ 3drop ] if
+    ] if ;
 
 ! Generic words that the current quotation depends on
 SYMBOL: generic-dependencies