vocabs: in create-vocab, notify-vocab-observers after updating dictionary.
parent
edfcc879fe
commit
e91a674f95
|
@ -85,8 +85,8 @@ GENERIC: vocab-changed ( vocab obj -- )
|
||||||
vocab-observers get [ vocab-changed ] with each ;
|
vocab-observers get [ vocab-changed ] with each ;
|
||||||
|
|
||||||
: create-vocab ( name -- vocab )
|
: create-vocab ( name -- vocab )
|
||||||
check-vocab-name dictionary get
|
check-vocab-name dictionary get [ <vocab> ] cache
|
||||||
[ <vocab> dup notify-vocab-observers ] cache ;
|
dup notify-vocab-observers ;
|
||||||
|
|
||||||
ERROR: no-vocab name ;
|
ERROR: no-vocab name ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue