Paris8/compilateurMIPS
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add quotes

Browse source
This commit is contained in:
Mylloon 2022-12-11 03:40:17 +01:00
parent c79a0f3a33
commit c9b0b9e64f
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test.ml
View file

@ -8,7 +8,7 @@ let debug_parser oc parsed =
| Syntax.Void -> "Void"
| Syntax.Int d -> "Int " ^ string_of_int d
| Syntax.Bool d -> "Bool " ^ string_of_bool d
| Syntax.Str s -> "Str " ^ s
| Syntax.Str s -> "Str \"" ^ s ^ "\""
and fmt_e = function
| Syntax.Val d -> "Val (" ^ fmt_v d.value ^ ")"
| Syntax.Var d -> "Var \"" ^ d.name ^ "\""
@ -46,7 +46,7 @@ let debug_semantics oc ast =
| Void -> "Void"
| Int n -> "Int " ^ string_of_int n
| Bool b -> "Bool " ^ string_of_bool b
| Str s -> "String " ^ s
| Str s -> "Str \"" ^ s ^ "\""
and fmt_e = function
| Val v -> "Val (" ^ fmt_v v ^ ")"
| Var v -> "Var \"" ^ v ^ "\""