Skip to content

Commit

Permalink
Add scope to stop complaint from GCC about label
Browse files Browse the repository at this point in the history
  • Loading branch information
hostilefork committed Feb 18, 2024
1 parent 5adec73 commit 1539fe3
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion src/core/t-typeset.c
Original file line number Diff line number Diff line change
Expand Up @@ -299,7 +299,7 @@ void Set_Parameter_Spec(
goto handle_predicate;
}
else if (heart == REB_FRAME and QUOTE_BYTE(lookup) == ANTIFORM_0) {
handle_predicate:
handle_predicate: {
Phase* phase = ACT_IDENTITY(VAL_ACTION(lookup));
if (ACT_DISPATCHER(phase) == &Intrinsic_Dispatcher) {
Intrinsic* intrinsic = Extract_Intrinsic(phase);
Expand Down Expand Up @@ -331,6 +331,7 @@ void Set_Parameter_Spec(
}
else
*flags |= PARAMETER_FLAG_INCOMPLETE_OPTIMIZATION;
}
}
else {
// By pre-checking we can avoid needing to double check in the
Expand Down

0 comments on commit 1539fe3

Please sign in to comment.