st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-10 08:48:49 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

x86 up to closures

Browse source
This commit is contained in:
Dmitry Boulytchev 2019-10-15 01:54:57 +03:00
parent e529ba1472
commit 763f5fe486
4 changed files with 49 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Language.ml
View file

@ -120,7 +120,7 @@ module Builtin =
| ".length" -> (st, i, o, (Value.of_int (match List.hd args with Value.Sexp (_, a) | Value.Array a -> Array.length a | Value.String s -> Bytes.length s))::vs)
| ".array" -> (st, i, o, (Value.of_array @@ Array.of_list args)::vs)
| ".stringval" -> let [a] = args in (st, i, o, (Value.of_string @@ Value.string_val a)::vs)
| "_gc_init" -> (st, i, o, vs)
| "__gc_init" -> (st, i, o, vs)
| "raw" -> let [a] = args in (st, i, o, a :: vs)
end