diff options
author | Hans Bolinder <[email protected]> | 2018-01-17 12:14:24 +0100 |
---|---|---|
committer | Hans Bolinder <[email protected]> | 2018-01-17 12:14:24 +0100 |
commit | a1e80221476fb5968640742bb9709e694ffdb96d (patch) | |
tree | 6412b95e6b284e602b01c0e1642ee9895eeea829 | |
parent | 6b204572531a0f8d6f0f681e70dc57c983c48f18 (diff) | |
parent | b5f2a0703882d919e15a0ca2e24616aa97033a77 (diff) | |
download | otp-a1e80221476fb5968640742bb9709e694ffdb96d.tar.gz otp-a1e80221476fb5968640742bb9709e694ffdb96d.tar.bz2 otp-a1e80221476fb5968640742bb9709e694ffdb96d.zip |
Merge branch 'maint'
* maint:
stdlib: Garbage the shell's evaluator process more often
-rw-r--r-- | lib/stdlib/src/shell.erl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/stdlib/src/shell.erl b/lib/stdlib/src/shell.erl index 212b143b1d..ad4984b64c 100644 --- a/lib/stdlib/src/shell.erl +++ b/lib/stdlib/src/shell.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1996-2017. All Rights Reserved. +%% Copyright Ericsson AB 1996-2018. All Rights Reserved. %% %% Licensed under the Apache License, Version 2.0 (the "License"); %% you may not use this file except in compliance with the License. @@ -701,7 +701,9 @@ exprs([E0|Es], Bs1, RT, Lf, Ef, Bs0, W) -> {W,V0}; true -> case result_will_be_saved() of true -> V0; - false -> ignored + false -> + erlang:garbage_collect(), + ignored end end, {{value,V,Bs,get()},Bs}; |