vocabs: only notify vocab-observers if we are creating a new vocab.

2013-03-05 21:13:45 -08:00 · 2013-03-05 21:13:45 -08:00 · 019080d82d
parent 8f9bd87693
commit 019080d82d
1 changed files with 2 additions and 3 deletions
--- a/core/vocabs/vocabs.factor
+++ b/core/vocabs/vocabs.factor
@ -91,9 +91,8 @@ GENERIC: vocab-changed ( vocab obj -- )
    vocab-observers get [ vocab-changed ] with each ;

 : create-vocab ( name -- vocab )
-    check-vocab-name
-    dictionary get [ <vocab> ] cache
-    dup notify-vocab-observers ;
+    check-vocab-name dictionary get
+    [ <vocab> dup notify-vocab-observers ] cache ;

 ERROR: no-vocab name ;