cvm: fix does

2020-06-26 17:35:21 -04:00 · 2020-06-26 17:35:21 -04:00 · 9021e5f6e0
commit 9021e5f6e0
parent 36cb1389e6
1 changed files with 2 additions and 1 deletions
--- a/cvm/vm.c
+++ b/cvm/vm.c
@ -86,7 +86,8 @@ static void execute(word wordref) {
        vm.IP = wordref+1;
    } else { // cell or does
        push(wordref+1);
-        if (wtype == 4) {
+        if (wtype == 3) {
+            pushRS(vm.IP);
            vm.IP = gw(wordref+3);
        }
    }