'as' pattern

This commit is contained in:
Dmitry Boulytchev 2018-11-05 18:21:41 +03:00 committed by danyaberezun
parent 00e808a921
commit 12c90391b9
8 changed files with 89 additions and 31 deletions

View file

@ -310,7 +310,8 @@ let compile env code =
let env, code = call env ".sexp" (n+1) false in
env, [Mov (L env#hash t, s)] @ code
| DROP -> snd env#pop, []
| DROP ->
snd env#pop, []
| DUP ->
let x = env#peek in