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

Added a smoke test for local scopes

Browse source
This commit is contained in:
Dmitry Boulytchev 2019-09-19 16:57:41 +03:00
parent 5527013a7f
commit a3b12425fd
4 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Language.ml
View file

@ -556,7 +556,7 @@ module Expr =
let vars, body =
List.fold_left
(fun (vs, bd) -> function
| (name, `Variable value) -> name :: vs, (match value with None -> bd | Some v -> Seq (Assign (Var name, v), bd))
| (name, `Variable value) -> name :: vs, (match value with None -> bd | Some v -> Seq (Assign (Ref name, v), bd))
| _ -> invalid_arg "function"
)
([], expr)