From 6fac61a3471e4b29e1a052bdc8783c97105371c5 Mon Sep 17 00:00:00 2001 From: Peter Lemenkov Date: Fri, 11 May 2012 16:56:22 +0400 Subject: [PATCH 2/6] No such function - lists:delete_nth/2 Signed-off-by: Peter Lemenkov --- src/wings_pref.erl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/wings_pref.erl b/src/wings_pref.erl index 7511d44..ca713b4 100644 --- a/src/wings_pref.erl +++ b/src/wings_pref.erl @@ -624,7 +624,7 @@ pref({load,Request,St}) -> wings_pref:set_value(pref_directory, PrefDir), pref(load); false -> - Recent = lists:delete_nth(Recent0, Key), + Recent = delete_nth(Recent0, Key), wings_pref:set_value(recent_prefs, Recent), wings_u:error_msg(?__(11,"This file has been moved or deleted.")) end @@ -1033,3 +1033,7 @@ load_pref_category([{Other,true}|Options], List, St) -> end, load_pref_category(Options, List, St); load_pref_category([], _, _) -> ok. + +delete_nth([_|T], 1) -> T; +delete_nth([H|T], N) -> [H|delete_nth(T, N-1)]; +delete_nth([], _) -> []. -- 1.8.1.4