mirrors/WolframLanguageForJupyter
1
0
Fork 0
mirror of https://github.com/WolframResearch/WolframLanguageForJupyter.git synced 2025-04-17 20:26:04 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Limit the Quit[] and Exit[] redefinition to the arguments that the actual Quit[] and Exit[] can take

Browse Source
This commit is contained in:
cc-wr 2019-12-05 08:44:19 -05:00
parent 1607ff07cd
commit 6cca28f8ab
1 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
WolframLanguageForJupyter/Resources/EvaluationUtilities.wl
View File

@ -101,29 +101,43 @@ If[
to quit, if running under
a Jupyter console
*************************************)
Unprotect[Quit];
Quit[ourArgs___, opts:OptionsPattern[]] :=
Quit[ourArgs___] :=
Block[
{$inQuit = True},
If[
loopState["isCompleteRequestSent"],
loopState["askExit"] = True;,
Quit[ourArgs, opts];
Quit[ourArgs];
];
] /; !TrueQ[$inQuit];
] /;
(
(!TrueQ[$inQuit]) &&
(
(Length[{ourArgs}] == 0) ||
((Length[{ourArgs}] == 1) && IntegerQ[ourArgs])
)
);
Protect[Quit];
Unprotect[Exit];
Exit[ourArgs___, opts:OptionsPattern[]] :=
Exit[ourArgs___] :=
Block[
{$inExit = True},
If[
loopState["isCompleteRequestSent"],
loopState["askExit"] = True;,
Exit[ourArgs, opts];
Exit[ourArgs];
];
] /; !TrueQ[$inExit];
] /;
(
(!TrueQ[$inExit]) &&
(
(Length[{ourArgs}] == 0) ||
((Length[{ourArgs}] == 1) && IntegerQ[ourArgs])
)
);
Protect[Exit];
(************************************