diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2014-10-23 18:44:15 +0200 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2014-10-24 18:00:01 +0200 |
| commit | 58d64b9bd9a5759451f678e8a1dcf36b8ded19fd (patch) | |
| tree | 8d759409e5c12022cbf93b22ab5cd25156fba979 /lib/syntax_tools/src/erl_syntax.erl | |
| parent | 2a038c5360f0e14f079ea266043ec464600f97c7 (diff) | |
| download | otp-58d64b9bd9a5759451f678e8a1dcf36b8ded19fd.tar.gz otp-58d64b9bd9a5759451f678e8a1dcf36b8ded19fd.tar.bz2 otp-58d64b9bd9a5759451f678e8a1dcf36b8ded19fd.zip | |
syntax_tools: Fix is_literal/1 for binary
Diffstat (limited to 'lib/syntax_tools/src/erl_syntax.erl')
| -rw-r--r-- | lib/syntax_tools/src/erl_syntax.erl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/syntax_tools/src/erl_syntax.erl b/lib/syntax_tools/src/erl_syntax.erl index 46a5ca48df..5da53113e0 100644 --- a/lib/syntax_tools/src/erl_syntax.erl +++ b/lib/syntax_tools/src/erl_syntax.erl @@ -6209,10 +6209,17 @@ is_literal(T) -> is_literal(list_head(T)) andalso is_literal(list_tail(T)); tuple -> lists:all(fun is_literal/1, tuple_elements(T)); + binary -> + lists:all(fun is_literal_binary_field/1, binary_fields(T)); _ -> false end. +is_literal_binary_field(F) -> + case binary_field_types(F) of + [] -> is_literal(binary_field_body(F)); + _ -> false + end. %% ===================================================================== %% @doc Returns an `erl_parse'-compatible representation of a |