Commit 23e9700d authored by MARCHE Claude's avatar MARCHE Claude

IDE: fixed fallback to default iconset fatcow

parent cf4020c5
......@@ -381,12 +381,12 @@ let load_icon_names () =
let ide = config () in
let iconset = ide.iconset in
let _,iconsets = iconsets () in
let d =
let iconset,d =
try
List.assoc iconset iconsets
iconset, List.assoc iconset iconsets
with Not_found ->
try
List.assoc "fatcow" iconsets
"fatcow", List.assoc "fatcow" iconsets
with Not_found ->
failwith "No icon set found"
in
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment