Fixing everything for mandatory stack effects

[factor.git] / core / definitions / definitions.factor

diff --git a/core/definitions/definitions.factor b/core/definitions/definitions.factor
index 122205eb26f8682c5de355999cb17b5a38665789..0a83e43097348ca580d18c2035b450b75f8c8156 100755 (executable)
--- a/core/definitions/definitions.factor
+++ b/core/definitions/definitions.factor
@@ -7,10 +7,21 @@ ERROR: no-compilation-unit definition ;
 
 SYMBOL: changed-definitions
 
-: changed-definition ( defspec -- )
-    dup changed-definitions get
-    [ no-compilation-unit ] unless*
-    set-at ;
+SYMBOL: +inlined+
+SYMBOL: +called+
+
+: changed-definition ( defspec how -- )
+    swap changed-definitions get
+    [ set-at ] [ no-compilation-unit ] if* ;
+
+SYMBOL: new-classes
+
+: new-class ( word -- )
+    dup new-classes get
+    [ set-at ] [ no-compilation-unit ] if* ;
+
+: new-class? ( word -- ? )
+    new-classes get key? ;
 
 GENERIC: where ( defspec -- loc )