From 84adefa331c4159d432d22840663c38f155cd4c1 Mon Sep 17 00:00:00 2001 From: Erlang/OTP Date: Fri, 20 Nov 2009 14:54:40 +0000 Subject: The R13B03 release. --- lib/compiler/test/nested_call_in_case.core | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 lib/compiler/test/nested_call_in_case.core (limited to 'lib/compiler/test/nested_call_in_case.core') diff --git a/lib/compiler/test/nested_call_in_case.core b/lib/compiler/test/nested_call_in_case.core new file mode 100644 index 0000000000..5c6b6909bd --- /dev/null +++ b/lib/compiler/test/nested_call_in_case.core @@ -0,0 +1,21 @@ +module 'nested_call_in_case' ['a'/2] + attributes [] + +'a'/2 = + fun (_x,_y) -> + case call 'erlang':'>' + (call 'erlang':'length' + (_x), _y) of + <'true'> when 'true' -> + 'yes' + <'false'> when 'true' -> + 'no' + ( <_omega> when 'true' -> + primop 'match_fail' + ('if_clause') + -| ['compiler_generated'] ) + end +end + + + -- cgit v1.2.3