From 4aeef6279f19a15c728befe817d78d669bb5d1fd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Thu, 30 Jan 2014 15:34:47 +0100
Subject: Issue a warning when a named fun is constructed but not used

---
 lib/compiler/src/v3_core.erl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/compiler/src/v3_core.erl')

diff --git a/lib/compiler/src/v3_core.erl b/lib/compiler/src/v3_core.erl
index e30bfa729c..59863f52ec 100644
--- a/lib/compiler/src/v3_core.erl
+++ b/lib/compiler/src/v3_core.erl
@@ -2088,7 +2088,8 @@ cexpr(#ifun{anno=#a{us=Us0}=A0,name={named,Name},fc=#iclause{pats=Ps}}=Fun0,
             RecVar = #c_var{name={Name,length(Ps)}},
             Let = #c_let{vars=[#c_var{name=Name}],arg=RecVar,body=Body},
             CFun1 = CFun0#c_fun{body=Let},
-            Letrec = #c_letrec{defs=[{RecVar,CFun1}],
+            Letrec = #c_letrec{anno=A0#a.anno,
+			       defs=[{RecVar,CFun1}],
                                body=RecVar},
             {Letrec,[],Us1,St1}
     end;
-- 
cgit v1.2.3