Merge pull request #1022 from WolframResearch/bugfix/456137

Workaround for `Enclose` issue
WolframResearch · Jan 13, 2025 · 3be23a2 · 3be23a2
2 parents aee3d3b + dda7781
commit 3be23a2
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/Source/Chatbook/Common.wl b/Source/Chatbook/Common.wl
@@ -311,12 +311,19 @@ expandThrowInternalFailures[ expr_ ] :=
                 ReplaceAll[
                     HoldPattern[ e$: lhs ] :> rhs,
                     HoldPattern @ Enclose[ eval_, throwInternalFailure, $enclosure ] :>
-                        Enclose[ eval, throwInternalFailure[ e$, ##1 ] &, $enclosure ]
+                        Module[ { eh = HoldComplete @ e$ }, Enclose[ eval, internalFailureFunction @ eh, $enclosure ] ]
                 ]
     ];
 
 expandThrowInternalFailures // endDefinition;
 
+(* ::**************************************************************************************************************:: *)
+(* ::Subsubsection::Closed:: *)
+(*internalFailureFunction*)
+internalFailureFunction // ClearAll;
+internalFailureFunction // Attributes = { HoldAllComplete };
+internalFailureFunction[ held_ ][ args___ ] := Replace[ held, HoldComplete[ e_ ] :> throwInternalFailure[ e, args ] ];
+
 (* ::**************************************************************************************************************:: *)
 (* ::Subsubsection::Closed:: *)
 (*addEnclosureTags*)