st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-07 15:28:49 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Switching off invalid hashconsing

Browse source
This commit is contained in:
Dmitry Boulytchev 2022-01-31 23:46:18 +03:00
parent f953814c76
commit 69c0b89e3c
6 changed files with 91 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/Language.ml
View file

@ -802,6 +802,7 @@ module Expr =
in
(match arr with [a] -> a | _ -> Array (List.rev arr)), List.rev ss
in
let escape = String.map (function '"' -> ' ' | x -> x) in
List.fold_right (fun (loc, _, p, s) ->
let make_right =
match p with
@ -813,7 +814,7 @@ module Expr =
)
in
function
| Var "" -> Call (Var (infix_name "@"), [s; make_right sema])
| Var "" -> Call (Var (infix_name "@@"), [Array [String (escape (show(t) s)); s]; make_right sema])
| acc -> Call (Var "seq", [s; make_right acc])
) ss (Var "")
};

2
src/version.ml
View file

@ -1 +1 @@
let version = "Version 1.10, 669a4288d, Mon Nov 22 15:51:47 2021 +0300"
let version = "Version 1.10, f953814c7, Fri Dec 3 03:56:58 2021 +0300"