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

Arithmetics+corrections (expressions only)

Browse source
This commit is contained in:
Dmitry Boulytchev 2018-10-23 23:18:00 +03:00
parent ee402687de
commit eb72a6aa3d
6 changed files with 72 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/SM.ml
View file

@ -113,7 +113,7 @@ let run p i =
let args, stack' = split n stack in
let (st, i, o, r) = Language.Builtin.eval (st, i, o, None) (List.rev args) f in
let stack'' = if p then stack' else let Some r = r in r::stack' in
Printf.printf "Builtin: %s\n";
(*Printf.printf "Builtin:\n";*)
(cstack, stack'', (st, i, o))
end
)