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