From 2261f2a35a758133d3694816bb9bc35f22cc2d46 Mon Sep 17 00:00:00 2001
From: Niclas Eklund <nick@erlang.org>
Date: Thu, 23 Sep 2010 13:58:40 +0200
Subject: Removed test code.

---
 lib/ic/src/ic_pragma.erl | 19 +------------------
 1 file changed, 1 insertion(+), 18 deletions(-)

diff --git a/lib/ic/src/ic_pragma.erl b/lib/ic/src/ic_pragma.erl
index e60774f1ab..45cb64c9c8 100644
--- a/lib/ic/src/ic_pragma.erl
+++ b/lib/ic/src/ic_pragma.erl
@@ -60,28 +60,11 @@ pragma_reg(G,X) ->
     init_pragma_status(S),
     registerOptions(G,S),
     pragma_reg_all(G, S, [], X),
-    denote_specific_code_opts(G), %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+    denote_specific_code_opts(G),
     case get_pragma_compilation_status(S) of
 	true ->
 	    %% Remove ugly pragmas from form
 	    PragmaCleanForm = cleanup(X),
-%% 	    PragmaCleanForm = [{preproc,line_nr,
-%% 				{'<string_literal>',1,
-%% 				 "/home/nick/trash/recursive/b.idl"},
-%% 				[]},
-%% 			       {struct,{'<identifier>',2,"Foo"},[],undefined},
-%% 			       {typedef,
-%% 				{sequence,{scoped_id,local,3,["Foo"]},0},
-%% 				[{'<identifier>',3,"FooSeq"}],
-%% 				undefined},
-%% 			       {struct,
-%% 				{'<identifier>',4,"Foo"},
-%% 				[{member,{long,5},[{'<identifier>',5,"value"}]},
-%% 				 {member,
-%% 				  {scoped_id,local,6,["FooSeq"]},
-%% 				  [{'<identifier>',6,"chain"}]}],
-%% 				undefined}],
-
 	    {ok,PragmaCleanForm};
 	false ->
 	    ErrorNr = get_pragma_error_nr(S),
-- 
cgit v1.2.3