Patch CFA>

Author: jburgy

build.zig

@@ -67,6 +67,14 @@ 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

@@ -0,0 +1,6 @@
+995,996c995,996
+< 		2DUP SWAP	( cfa curr curr cfa )
+< 		< IF		( current dictionary entry < cfa? )
+---
+> 		2DUP >CFA	( cfa curr curr cfa )
+> 		= IF		( current dictionary entry < cfa? )

src/zorth.zig

@@ -1161,6 +1161,7 @@ test forth {
         .{ preamble ++ "SEE >DFA ", fmt.comptimePrint(": >DFA >CFA {d}+ EXIT ;\n", .{@sizeOf(usize)}) },
         .{ preamble ++ "SEE HIDE ", ": HIDE WORD FIND HIDDEN ;\n" },
         .{ preamble ++ "SEE QUIT ", fmt.comptimePrint(": QUIT R0 RSP! INTERPRET BRANCH ( -{d} ) ;\n", .{2 * @sizeOf(usize)}) },
+        .{ preamble ++ "SEE / ", ": / /MOD SWAP DROP ;\n" },
         .{
             preamble ++
                 \\: FOO THROW ;