Fixed unused variable warning
This commit is contained in:
parent
6ccdf0bf9e
commit
3a7d2a85f1
@ -2,7 +2,7 @@ include List
|
||||
|
||||
let rec remove n = function
|
||||
| [] -> raise (Failure "List.remove")
|
||||
| hd :: tl when n = 0 -> tl
|
||||
| _ :: tl when n = 0 -> tl
|
||||
| hd :: tl -> hd :: remove (n - 1) tl
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user