Shallow clone (runtime function)

This commit is contained in:
Dmitry Boulytchev 2020-01-15 22:33:46 +03:00
parent a453b65fd3
commit 46dfd58bda
6 changed files with 31 additions and 7 deletions

View file

@ -183,7 +183,7 @@ let compile cmd env code =
match scode with
| [] -> env, []
| instr :: scode' ->
let stack = env#show_stack in
let stack = "" (* env#show_stack*) in
let env', code' =
match instr with
| PUBLIC name -> env#register_public name, []