Make both-fixnums? foldable, hashcode* flushable

diff --git a/basis/bootstrap/image/primitives/primitives.factor b/basis/bootstrap/image/primitives/primitives.factor
index f2bffd9b88351978ca729e0fdf2bdc74e03d73b6..bdb095375839792c72d690ba4ae5c4c064cf6537 100644 (file)
--- a/basis/bootstrap/image/primitives/primitives.factor
+++ b/basis/bootstrap/image/primitives/primitives.factor
@@ -407,7 +407,10 @@ CONSTANT: all-primitives {
     {
         "math.private"
         {
-            { "both-fixnums?" ( x y -- ? ) f { object object } { object } f }
+            {
+                "both-fixnums?" ( x y -- ? ) f
+                { object object } { object } make-foldable
+            }
             {
                 "fixnum+fast" ( x y -- z ) f
                 { fixnum fixnum } { fixnum } make-foldable

diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor
index 6138cb517e4ea15a2e4bf715ca075b128d211b94..01096c35447a765353bc436fa4a27ec5443f003b 100644 (file)
--- a/core/kernel/kernel.factor
+++ b/core/kernel/kernel.factor
@@ -292,7 +292,7 @@ UNION: boolean POSTPONE: t POSTPONE: f ;
     [ [ not ] compose ] dip while ; inline
 
 ! Object protocol
-GENERIC: hashcode* ( depth obj -- code )
+GENERIC: hashcode* ( depth obj -- code ) flushable
 
 M: object hashcode* 2drop 0 ; inline