From 73e0b64c2c68c8356ce16e974b70c2d8bebb8cc5 Mon Sep 17 00:00:00 2001
From: Koichi Nakamura <koichi@idein.jp>
Date: Fri, 1 Jan 2021 21:41:15 +0900
Subject: [PATCH] Rewrite multiline comment using case statement

---
 core.fs | 17 ++++++-----------
 1 file changed, 6 insertions(+), 11 deletions(-)

diff --git a/core.fs b/core.fs
index 063aeaf..037e0a1 100644
--- a/core.fs
+++ b/core.fs
@@ -740,17 +740,12 @@ alias-builtin xor       ^
 
 : (
     1   \ depth counter
-    begin
-        key
-        dup '(' = if
-            drop 1+     \ increase depth
-        else
-            ')' = if
-                1-      \ decrease depth
-            then
-        then
-    dup 0= until
-    drop
+    begin ?dup while
+        key case
+        '(' of 1+ endof \ increment depth
+        ')' of 1- endof \ decrement depth
+        endcase
+    repeat
 ; immediate
 
 (