aboutsummaryrefslogtreecommitdiffstats
path: root/lib/stdlib
diff options
context:
space:
mode:
authorHans Bolinder <[email protected]>2018-01-17 12:14:24 +0100
committerHans Bolinder <[email protected]>2018-01-17 12:14:24 +0100
commita1e80221476fb5968640742bb9709e694ffdb96d (patch)
tree6412b95e6b284e602b01c0e1642ee9895eeea829 /lib/stdlib
parent6b204572531a0f8d6f0f681e70dc57c983c48f18 (diff)
parentb5f2a0703882d919e15a0ca2e24616aa97033a77 (diff)
downloadotp-a1e80221476fb5968640742bb9709e694ffdb96d.tar.gz
otp-a1e80221476fb5968640742bb9709e694ffdb96d.tar.bz2
otp-a1e80221476fb5968640742bb9709e694ffdb96d.zip
Merge branch 'maint'
* maint: stdlib: Garbage the shell's evaluator process more often
Diffstat (limited to 'lib/stdlib')
-rw-r--r--lib/stdlib/src/shell.erl6
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};