← Back to branch summary

~ubuntu-branches/debian/squeeze/erlang/squeeze

« back to all changes in this revision

Viewing changes to lib/gs/src/gs_make.erl

  • Committer: Bazaar Package Importer
  • Author(s): Erlang Packagers, Sergei Golovan
  • Date: 2006-12-03 17:07:44 UTC
  • mfrom: (2.1.11 feisty)
  • Revision ID: james.westby@ubuntu.com-20061203170744-rghjwupacqlzs6kv
Tags: 1:11.b.2-4
[ Sergei Golovan ]
Fixed erlang-base and erlang-base-hipe prerm scripts.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/gs/src/gs_make.erl
77
77
 
78
78
gen_out_type_case_clauses([],_DB) -> done;
79
79
gen_out_type_case_clauses([Objtype|Objtypes],DB) ->
80
 
    OptsFuns = lists:map({erlang,list_to_tuple},
 
80
    OptsFuns = lists:map(fun(L) -> list_to_tuple(L) end,
81
81
                         ets:match(DB,{Objtype,'$1','$2',write})),
82
82
    p("   ~p -> \ncase Opt of\n",[Objtype]),
83
83
    gen_opt_case_clauses(merge_opts(opt_prio(),OptsFuns)),
110
110
 
111
111
gen_read_type_clauses([],_) -> done;
112
112
gen_read_type_clauses([Objtype|Objtypes],DB) ->
113
 
    OptsFuns = lists:map({erlang,list_to_tuple},
 
113
    OptsFuns = lists:map(fun(L) -> list_to_tuple(L) end,
114
114
                         ets:match(DB,{Objtype,'$1','$2',read})),
115
115
    p("  ~p -> \ncase Key of\n",[Objtype]),
116
116
    gen_readopt_case_clauses(merge_opts(opt_prio(),OptsFuns)),