mirror of
https://github.com/nineties/planckforth
synced 2025-01-13 08:01:10 +01:00
Rewrite multiline comment using case statement
This commit is contained in:
parent
cf75d5474e
commit
73e0b64c2c
1 changed files with 6 additions and 11 deletions
17
core.fs
17
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
|
||||
|
||||
(
|
||||
|
|
Loading…
Reference in a new issue