Simpler fix

Author: jburgy

build.zig

@@ -67,14 +67,6 @@ pub fn build(b: *std.Build) !void {
             std.fs.path.basename(sub_path),
         );
         emcc_step.dependOn(&file.step);
-        if (comptime std.mem.eql(u8, sub_path, "jonesforth/jonesforth.f")) {
-            const patch = b.addSystemCommand(&.{
-                "patch",
-                b.getInstallPath(file.dir, file.dest_rel_path),
-            });
-            patch.addFileArg(b.path("src/jonesforth.f.patch"));
-            emcc_step.dependOn(&patch.step);
-        }
     }
     b.getInstallStep().dependOn(emcc_step);
 

src/jonesforth.f.patch

@@ -849,7 +849,7 @@ fn _interpret(self: *Interp, sp: [*]isize, rsp: [*][*]const Instr, ip: [*]const
         }
     } else if (fmt.parseInt(isize, self.buffer[0..c], @truncate(@abs(self.base)))) |a| {
         if (self.state == 1) {
-            self.append(.{ .word = codeFieldAddress(&lit) });
+            self.append(.{ .word = &.{.{ .code = _lit }} });
             self.append(.{ .literal = a });
         } else {
             s = sp - 1;
@@ -1093,7 +1093,7 @@ test forth {
         \\: OF      IMMEDIATE ' OVER , ' = , [COMPILE] IF ' DROP , ;
         \\: ENDOF   IMMEDIATE [COMPILE] ELSE ;
         \\: ENDCASE IMMEDIATE ' DROP , BEGIN ?DUP WHILE [COMPILE] THEN REPEAT ;
-        \\: CFA> LATEST @ BEGIN ?DUP WHILE 2DUP >CFA = IF NIP EXIT THEN @ REPEAT DROP 0 ;
+        \\: CFA> LATEST @ BEGIN ?DUP WHILE 2DUP SWAP < IF NIP EXIT THEN @ REPEAT DROP 0 ;
         \\: SEE WORD FIND HERE @ LATEST @ BEGIN 2 PICK OVER <> WHILE NIP DUP @ REPEAT DROP SWAP
         \\  ':' EMIT SPACE DUP ID. SPACE DUP ?IMMEDIATE IF ." IMMEDIATE " THEN >DFA
         \\  BEGIN 2DUP > WHILE DUP @