tools.deploy.shaker: don't try to intern all word props anymore

diff --git a/basis/tools/deploy/shaker/shaker.factor b/basis/tools/deploy/shaker/shaker.factor
index c9485a458c43c5b5d56530052e87558aab4e5d91..5897712a023f46fd647d6d2d4f35514d9bc3d9dc 100755 (executable)
--- a/basis/tools/deploy/shaker/shaker.factor
+++ b/basis/tools/deploy/shaker/shaker.factor
@@ -106,18 +106,12 @@ IN: tools.deploy.shaker
 
 : strip-word-props ( stripped-props words -- )
     "Stripping word properties" show
-    [
-        swap '[
-            [
-                [ drop _ member? not ] assoc-filter sift-assoc
-                >alist f like
-            ] change-props drop
-        ] each
-    ] [
-        H{ } clone '[
-            [ [ _ [ ] cache ] map ] change-props drop
-        ] each
-    ] bi ;
+    swap '[
+        [
+            [ drop _ member? not ] assoc-filter sift-assoc
+            >alist f like
+        ] change-props drop
+    ] each ;
 
 : stripped-word-props ( -- seq )
     [

diff --git a/basis/tools/memory/memory.factor b/basis/tools/memory/memory.factor
index 69b19899b859f157f475740f49f313221f5ca249..0c55612466a0149822615a74f5311e2ff882ebdd 100644 (file)
--- a/basis/tools/memory/memory.factor
+++ b/basis/tools/memory/memory.factor
@@ -242,8 +242,6 @@ M: code-blocks nth-unsafe
     [ cache>> ] [ blocks>> ] bi
     '[ _ nth-unsafe <code-block> ] cache ; inline
 
-M: code-blocks hashcode* 2drop 0 ;
-
 INSTANCE: code-blocks immutable-sequence
 
 : code-blocks ( -- blocks )

diff --git a/core/classes/tuple/tuple-tests.factor b/core/classes/tuple/tuple-tests.factor
index c4c2e83e95ee3ab9b10fc72a82be0664cef95025..fe55365f461bd40d765d52a13a5e0c1a6072cba8 100644 (file)
--- a/core/classes/tuple/tuple-tests.factor
+++ b/core/classes/tuple/tuple-tests.factor
@@ -706,14 +706,6 @@ ERROR: derived-error < base-error z ;
 
 [ (( x y z -- * )) ] [ \ derived-error stack-effect ] unit-test
 
-USE: classes.struct
-
-[ { } ] [
-    classes
-    [ "prototype" word-prop ] map
-    [ '[ _ hashcode drop f ] [ drop t ] recover ] filter
-] unit-test
-
 ! Make sure that tuple reshaping updates code heap roots
 TUPLE: code-heap-ref ;