From 6fac61a3471e4b29e1a052bdc8783c97105371c5 Mon Sep 17 00:00:00 2001
From: Peter Lemenkov <lemenkov@gmail.com>
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 <lemenkov@gmail.com>
---
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