aboutsummaryrefslogtreecommitdiffstats
path: root/lib/stdlib/src/shell.erl
diff options
context:
space:
mode:
authorBjörn-Egil Dahlberg <[email protected]>2016-07-15 12:22:45 +0200
committerBjörn-Egil Dahlberg <[email protected]>2016-07-15 12:22:45 +0200
commit440445cfd0cbeee8f2bb86b99b6d16caf7a5c9c7 (patch)
tree5267a83e8315e93f65ccf991bc201d71cefbb10e /lib/stdlib/src/shell.erl
parentddfae156c2b21d5266bd6eb82bf9ca7c508226fd (diff)
parentb490fb8664ec6e5ceaadc1c74350dc666f5406d2 (diff)
downloadotp-440445cfd0cbeee8f2bb86b99b6d16caf7a5c9c7.tar.gz
otp-440445cfd0cbeee8f2bb86b99b6d16caf7a5c9c7.tar.bz2
otp-440445cfd0cbeee8f2bb86b99b6d16caf7a5c9c7.zip
Merge branch 'maint-19' into maint
Diffstat (limited to 'lib/stdlib/src/shell.erl')
-rw-r--r--lib/stdlib/src/shell.erl4
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/stdlib/src/shell.erl b/lib/stdlib/src/shell.erl
index 82a3a2be4f..28f37ef8bf 100644
--- a/lib/stdlib/src/shell.erl
+++ b/lib/stdlib/src/shell.erl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 1996-2015. All Rights Reserved.
+%% Copyright Ericsson AB 1996-2016. 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.
@@ -768,6 +768,8 @@ used_records({call,_,{atom,_,record_info},[A,{atom,_,Name}]}) ->
{name, Name, A};
used_records({call,Line,{tuple,_,[M,F]},As}) ->
used_records({call,Line,{remote,Line,M,F},As});
+used_records({type,_,record,[{atom,_,Name}|Fs]}) ->
+ {name, Name, Fs};
used_records(T) when is_tuple(T) ->
{expr, tuple_to_list(T)};
used_records(E) ->