Fixed c, for web.

2022-07-14 13:16:31 -07:00
parent 8066bfb2e8
commit 521c756031
3 changed files with 43 additions and 14 deletions
--- a/web/dump_web_opcodes.c
+++ b/web/dump_web_opcodes.c
@ -27,7 +27,7 @@
 #define VOCABULARY_LIST V(forth) V(internals)

 #define PLATFORM_OPCODE_LIST \
-  X("CALL", CALL, sp = Call(sp|0, tos|0) | 0; DROP) \
+  X("CALL", CALL, DUP; sp = Call(sp|0)|0; DROP) \
  FLOATING_POINT_LIST

 enum {