diff --git a/performance/Sort.lama b/performance/Sort.lama index 3152c5d3d..0a93fbb3c 100644 --- a/performance/Sort.lama +++ b/performance/Sort.lama @@ -1,3 +1,7 @@ +fun compare (x, y) { + x - y +} + fun bubbleSort (l) { fun inner (l) { case l of diff --git a/src/version.ml b/src/version.ml index de9ddd438..cba252b4d 100644 --- a/src/version.ml +++ b/src/version.ml @@ -1 +1 @@ -let version = "Version 1.10, 79460b744, Tue Sep 13 09:20:45 2022 +0300" +let version = "Version 1.10, 1a1c2e628, Tue Oct 11 17:05:26 2022 +0300" diff --git a/stdlib/Matcher.lama b/stdlib/Matcher.lama index ee0eee366..d86640c01 100644 --- a/stdlib/Matcher.lama +++ b/stdlib/Matcher.lama @@ -46,8 +46,6 @@ fun createMatcher (buf, pos, line, col) { } fun matchString (s) { - - fun min (x, y) { if x < y then x else y fi } diff --git a/stdlib/regression/test02.lama b/stdlib/regression/test02.lama index af74217ab..bb01f7cfd 100644 --- a/stdlib/regression/test02.lama +++ b/stdlib/regression/test02.lama @@ -54,6 +54,6 @@ infixr || after |> (l, r) { } var expr = lid @ fun (s) {Lid (s)} || const @ fun (s) {Dec (s)}, - assn = lid |> fun (id) {token (":=") |> fun (s) {expr @ fun (e) {Assn (id, e)}}}; + assn = lid |> fun (id) {token (":=") |> fun (s) {expr @ fun (e) {Assn (id, e)}}}; printf ("%s\n", case assn (initMatcher ("x:=3")) of Fail (err) -> err | Succ (s, _) -> s.string esac)