Global definitions; regression tests fixed

This commit is contained in:
Dmitry Boulytchev 2019-09-19 18:37:08 +03:00
parent a3b12425fd
commit f5b802ebed
56 changed files with 121 additions and 10 deletions

View file

@ -143,7 +143,7 @@ let run p i =
(cstack, (match r with [r] -> r::stack' | _ -> Value.Empty :: stack'), (st, i, o))
end
)
([], [], (State.empty, i, []))
([], [], (State.global [] (* TODO! *), i, []))
p
in
o