1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 15:08:05 +11:00

cvm: fix does

This commit is contained in:
Virgil Dupras 2020-06-26 17:35:21 -04:00
parent 36cb1389e6
commit 9021e5f6e0

View File

@ -86,7 +86,8 @@ static void execute(word wordref) {
vm.IP = wordref+1; vm.IP = wordref+1;
} else { // cell or does } else { // cell or does
push(wordref+1); push(wordref+1);
if (wtype == 4) { if (wtype == 3) {
pushRS(vm.IP);
vm.IP = gw(wordref+3); vm.IP = gw(wordref+3);
} }
} }