As in with ":", check dictionary space and increase it if necessary before

"create".
This commit is contained in:
Daniel C. Sobral 2001-05-27 16:30:10 +00:00
parent 96fc36290a
commit 66bd171e5f
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=77268

View File

@ -2306,6 +2306,8 @@ static void create(FICL_VM *pVM)
FICL_DICT *dp = ficlGetDict();
STRINGINFO si = vmGetWord(pVM);
dictCheckThreshold(dp);
dictAppendWord2(dp, si, createParen, FW_DEFAULT);
dictAllotCells(dp, 1);
return;