vocabs.parser: The manifest is now a definition observer, and updates itself when...

[factor.git] / core / words / words.factor

diff --git a/core/words/words.factor b/core/words/words.factor
index 271dd558fc6e2d5f4f70bd906cb9511782fc138e..7c0273389e9578073c53a6256f769b565da48715 100644 (file)
--- a/core/words/words.factor
+++ b/core/words/words.factor
@@ -155,7 +155,12 @@ ERROR: bad-create name vocab ;
 
 : create ( name vocab -- word )
     check-create 2dup lookup
-    dup [ 2nip ] [ drop vocab-name <word> dup reveal ] if ;
+    dup [ 2nip ] [
+        drop
+        vocab-name <word>
+        dup reveal
+        dup changed-definition
+    ] if ;
 
 : constructor-word ( name vocab -- word )
     [ "<" ">" surround ] dip create ;