From b5e2b68f96d9126566de848ba4dd621c632af997 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Thu, 31 Dec 2020 20:22:51 +0900
Subject: [PATCH] Fixed a bug

---
 core.fs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core.fs b/core.fs
index 05cf588..a0f898d 100644
--- a/core.fs
+++ b/core.fs
@@ -324,7 +324,7 @@ cI i,
         'L, k0k0-, '=,
         'J, k5k0-C*,    \ goto <immediate> if immediate-bit=1
         'G, ',,         \ compile CFA
-        'j, k0k;-C*,    \ goto <loop>
+        'j, k0kE-C*,    \ goto <loop>
 \ <immediate>
         'G, 'x,         \ execute CFA
         'j, k0kI-C*,    \ goto <loop>