vocabs: in create-vocab, notify-vocab-observers after updating dictionary.

char-rename
John Benediktsson 2016-11-09 16:38:27 -08:00
parent edfcc879fe
commit e91a674f95
1 changed files with 2 additions and 2 deletions

View File

@ -85,8 +85,8 @@ GENERIC: vocab-changed ( vocab obj -- )
vocab-observers get [ vocab-changed ] with each ;
: create-vocab ( name -- vocab )
check-vocab-name dictionary get
[ <vocab> dup notify-vocab-observers ] cache ;
check-vocab-name dictionary get [ <vocab> ] cache
dup notify-vocab-observers ;
ERROR: no-vocab name ;