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

Added test for .string

Browse source
This commit is contained in:
Dmitry Boulytchev 2018-10-31 21:48:44 +03:00 • committed by danyaberezun
parent 1f564dbc5e
commit 9bc9967912
5 changed files with 65 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Language.ml
View file

@ -44,9 +44,9 @@ module Value =
| Int n -> append (string_of_int n)
| String s -> append "\""; append s; append "\""
| Array a -> let n = List.length a in
append "["; List.iteri (fun i a -> (if i < n-1 then append ", "); inner a) a; append "]"
append "["; List.iteri (fun i a -> (if i > 0 then append ", "); inner a) a; append "]"
| Sexp (t, a) -> let n = List.length a in
append "`"; append t; append " ("; List.iteri (fun i a -> (if i < n-1 then append ", "); inner a) a; append ")"
append "`"; append t; (if n > 0 then (append " ("; List.iteri (fun i a -> (if i > 0 then append ", "); inner a) a; append ")"))
in
inner v;
Buffer.contents buf