vm: dispatch signal handlers through subprimitive

[factor.git] / core / compiler / units / units.factor

diff --git a/core/compiler/units/units.factor b/core/compiler/units/units.factor
index ea362f3cb5bf86893c079dfd930a26646cf5d7dd..f6b2437a48ed202e8c3c2d9a70a2ce51f8a49e0e 100644 (file)
--- a/core/compiler/units/units.factor
+++ b/core/compiler/units/units.factor
@@ -106,7 +106,7 @@ GENERIC: definitions-changed ( assoc obj -- )
 ! Incremented each time stack effects potentially changed, used
 ! by compiler.tree.propagation.call-effect for call( and execute(
 ! inline caching
-: effect-counter ( -- n ) 47 special-object ; inline
+: effect-counter ( -- n ) 49 special-object ; inline
 
 GENERIC: always-bump-effect-counter? ( defspec -- ? )
 
@@ -141,9 +141,9 @@ M: object always-bump-effect-counter? drop f ;
 
 : bump-effect-counter ( -- )
     bump-effect-counter? [
-        47 special-object 0 or
+        49 special-object 0 or
         1 +
-        47 set-special-object
+        49 set-special-object
     ] when ;
 
 : notify-observers ( -- )