Fixed chop-suffix

This commit is contained in:
Dmitry Boulytchev 2022-09-13 09:19:28 +03:00
parent e5c5f914bd
commit 98804770e6
5 changed files with 20 additions and 4 deletions

View file

@ -108,7 +108,7 @@ class options args =
| Some name -> name
method get_help = !help
method get_include_paths = !paths
method basename = Filename.chop_suffix (Filename.basename self#get_infile) ".expr"
method basename = Filename.chop_suffix (Filename.basename self#get_infile) ".lama"
method topname =
match !mode with
| `Compile -> "init" ^ self#basename

View file

@ -1 +1 @@
let path = "/home/db/.opam/4.13.1+flambda/share/Lama"
let path = "/home/db/.opam/4.14.0+flambda/share/Lama"

View file

@ -1 +1 @@
let version = "Version 1.10, 33b082f21, Thu Apr 14 17:40:35 2022 +0300"
let version = "Version 1.10, e5c5f914b, Thu Apr 14 17:41:56 2022 +0300"