Rewrite multiline comment using case statement

This commit is contained in:
Koichi Nakamura 2021-01-01 21:41:15 +09:00
parent cf75d5474e
commit 73e0b64c2c

17
core.fs
View file

@ -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
(