diff options
| author | Hans Bolinder <[email protected]> | 2019-08-20 08:36:19 +0200 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2019-08-20 08:36:19 +0200 |
| commit | e2c6e9446cb3ce48f87909dd77ae68892e9126d5 (patch) | |
| tree | 8d5f22eee8627ab9ea1e4654d51ca2f6e7fc7094 | |
| parent | 2f30bd2f28f87b80dfa1329f33d4d590a027f6ec (diff) | |
| parent | a69d7ba56ad1f0983c6aea7538742d2a1c4e1d7a (diff) | |
| download | otp-e2c6e9446cb3ce48f87909dd77ae68892e9126d5.tar.gz otp-e2c6e9446cb3ce48f87909dd77ae68892e9126d5.tar.bz2 otp-e2c6e9446cb3ce48f87909dd77ae68892e9126d5.zip | |
Merge branch 'legoscia/stdlib/fun2ms-plusplus/OTP-15992/PR-2322' into maint
* legoscia/stdlib/fun2ms-plusplus/OTP-15992/PR-2322:
fun2ms: accept ++ in function head when called from shell
| -rw-r--r-- | lib/stdlib/src/ms_transform.erl | 2 | ||||
| -rw-r--r-- | lib/stdlib/test/ms_transform_SUITE.erl | 4 |
2 files changed, 6 insertions, 0 deletions
diff --git a/lib/stdlib/src/ms_transform.erl b/lib/stdlib/src/ms_transform.erl index 97ec785c62..74efe5c513 100644 --- a/lib/stdlib/src/ms_transform.erl +++ b/lib/stdlib/src/ms_transform.erl @@ -1100,6 +1100,8 @@ normalise({bin,_,Fs}) -> B; normalise({cons,_,Head,Tail}) -> [normalise(Head)|normalise(Tail)]; +normalise({op,_,'++',A,B}) -> + normalise(A) ++ normalise(B); normalise({tuple,_,Args}) -> list_to_tuple(normalise_list(Args)); normalise({map,_,Pairs0}) -> diff --git a/lib/stdlib/test/ms_transform_SUITE.erl b/lib/stdlib/test/ms_transform_SUITE.erl index d1e6faf863..29423ed032 100644 --- a/lib/stdlib/test/ms_transform_SUITE.erl +++ b/lib/stdlib/test/ms_transform_SUITE.erl @@ -281,6 +281,8 @@ basic_ets(Config) when is_list(Config) -> compile_and_run(<<"ets:fun2ms(fun({A,B}) -> {B,A} end)">>), [{{'$1','$2'},[],[['$2','$1']]}] = compile_and_run(<<"ets:fun2ms(fun({A,B}) -> [B,A] end)">>), + [{{"foo" ++ '_','$1'},[],['$1']}] = + compile_and_run(<<"ets:fun2ms(fun({\"foo\" ++ _, X}) -> X end)">>), ok. %% Tests basic ets:fun2ms. @@ -313,6 +315,8 @@ from_shell(Config) when is_list(Config) -> [{[a,b],[],[{message,banan},{return_trace}]}] = do_eval( "dbg:fun2ms(fun([a,b]) -> message(banan), return_trace() end)"), + [{{"foo" ++ '_','$1'},[],['$1']}] = + do_eval("ets:fun2ms(fun({\"foo\" ++ _, X}) -> X end)"), ok. %% Tests expansion of records in fun2ms. |