LCPQ/QCaml
10
1
Fork 0
mirror of https://gitlab.com/scemama/QCaml.git synced 2025-01-03 18:15:47 +01:00
Code Releases Activity

Fixed exception

Browse Source
This commit is contained in:
Anthony Scemama 2020-10-09 10:04:48 +02:00
parent 7e26b5833a
commit 084417669f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
common/lib/qcaml.ml
View File

@ -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