diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2016-07-15 12:33:41 +0200 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2016-07-15 12:33:41 +0200 |
| commit | 01a46375d8aae78d4ad01c043b554e58c5b40768 (patch) | |
| tree | f705d1f2d4abafb9739831e9683e60feaad6a2f7 /lib/stdlib/src | |
| parent | d050a82a419231e8435e6c3e2e98972c447b8ce6 (diff) | |
| parent | 440445cfd0cbeee8f2bb86b99b6d16caf7a5c9c7 (diff) | |
| download | otp-01a46375d8aae78d4ad01c043b554e58c5b40768.tar.gz otp-01a46375d8aae78d4ad01c043b554e58c5b40768.tar.bz2 otp-01a46375d8aae78d4ad01c043b554e58c5b40768.zip | |
Merge branch 'maint'
Conflicts:
OTP_VERSION
Diffstat (limited to 'lib/stdlib/src')
| -rw-r--r-- | lib/stdlib/src/shell.erl | 4 |
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) -> |