Fixed bug with unbox tag in Bsexp

This commit is contained in:
Dmitry Boulytchev 2020-09-01 20:31:34 +03:00
parent f16f695ed3
commit 6ed1b44439
3 changed files with 20 additions and 13 deletions

View file

@ -452,7 +452,7 @@ let compile cmd env imports code =
| SEXP (t, n) ->
let s, env = env#allocate in
let env, code = call env ".sexp" (n+1) false in
env, [Mov (L env#hash t, s)] @ code
env, [Mov (L (box (env#hash t)), s)] @ code
| DROP ->
snd env#pop, []

View file

@ -1 +1 @@
let version = "Version 1.00, 81be668d4, Tue Sep 1 06:20:39 2020 +0300"
let version = "Version 1.00, f16f695ed, Tue Sep 1 17:23:36 2020 +0300"