mirror of
https://gitlab.com/scemama/QCaml.git
synced 2024-06-02 03:15:19 +02:00
Fixed exception
This commit is contained in:
parent
7e26b5833a
commit
084417669f
|
@ -3,7 +3,7 @@ let name = "QCaml"
|
||||||
|
|
||||||
let root =
|
let root =
|
||||||
let rec chop = function
|
let rec chop = function
|
||||||
| [] -> raise Not_found
|
| [] -> []
|
||||||
| x :: _ as l when x = name -> l
|
| x :: _ as l when x = name -> l
|
||||||
| _ :: rest -> chop rest
|
| _ :: rest -> chop rest
|
||||||
in
|
in
|
||||||
|
|
Loading…
Reference in New Issue
Block a user