diff options
| author | Björn Gustavsson <[email protected]> | 2015-02-03 10:00:13 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2015-02-12 13:14:38 +0100 |
| commit | 116e8aa05f84ee66aead2792b07b644c7f3e8fcd (patch) | |
| tree | 10045e9a42f0d3594cb65c775bc47f6641c02c3f /lib/compiler/src/cerl.erl | |
| parent | d5a5df2d00f62ee580156bee605b0c4519f625f1 (diff) | |
| download | otp-116e8aa05f84ee66aead2792b07b644c7f3e8fcd.tar.gz otp-116e8aa05f84ee66aead2792b07b644c7f3e8fcd.tar.bz2 otp-116e8aa05f84ee66aead2792b07b644c7f3e8fcd.zip | |
cerl: Teach is_literal_term/1 to handle maps
Diffstat (limited to 'lib/compiler/src/cerl.erl')
| -rw-r--r-- | lib/compiler/src/cerl.erl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/compiler/src/cerl.erl b/lib/compiler/src/cerl.erl index 5d6997da11..3d4b9ee0c6 100644 --- a/lib/compiler/src/cerl.erl +++ b/lib/compiler/src/cerl.erl @@ -434,6 +434,8 @@ is_literal_term([H | T]) -> is_literal_term(T) when is_tuple(T) -> is_literal_term_list(tuple_to_list(T)); is_literal_term(B) when is_bitstring(B) -> true; +is_literal_term(M) when is_map(M) -> + is_literal_term_list(maps:to_list(M)); is_literal_term(_) -> false. |