mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 18:58:05 +11:00
cvm: fix does
This commit is contained in:
parent
36cb1389e6
commit
9021e5f6e0
3
cvm/vm.c
3
cvm/vm.c
@ -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);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user