diff --git a/bootstrap.fs b/bootstrap.fs index c555ed1..a067937 100644 --- a/bootstrap.fs +++ b/bootstrap.fs @@ -329,10 +329,10 @@ cI i, 'L, k@k@+, '&, \ test immediate bit 'L, k0k0-, '=, 'J, k5k0-C*, \ goto if immediate-bit=1 - 'G, ',, \ compile CFA + 'G, ',, \ compile 'j, k0kE-C*, \ goto \ - 'G, 'x, \ execute CFA + 'G, 'x, \ execute 'j, k0kI-C*, \ goto l!