From 89f5a2241bbe7e22b3f9166de8d36b8f0031422d Mon Sep 17 00:00:00 2001 From: Hugo Heuzard Date: Fri, 25 Oct 2024 21:52:10 +0200 Subject: [PATCH] Compiler: typo --- compiler/lib/parse_bytecode.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/lib/parse_bytecode.ml b/compiler/lib/parse_bytecode.ml index b3fbc6c1b5..b52ce3d444 100644 --- a/compiler/lib/parse_bytecode.ml +++ b/compiler/lib/parse_bytecode.ml @@ -1865,7 +1865,7 @@ and compile infos pc state (instrs : instr list) = if debug_parser () then ( - Format.printf "%a = ccal \"%s\" (" Var.print x prim; + Format.printf "%a = ccall \"%s\" (" Var.print x prim; for i = 0 to nargs - 1 do if i > 0 then Format.printf ", "; Format.printf "%a" Var.print (List.nth args i) @@ -1885,7 +1885,7 @@ and compile infos pc state (instrs : instr list) = if debug_parser () then ( - Format.printf "%a = ccal \"%s\" (" Var.print x prim; + Format.printf "%a = ccall \"%s\" (" Var.print x prim; for i = 0 to nargs - 1 do if i > 0 then Format.printf ", "; Format.printf "%a" Var.print (List.nth args i) @@ -1905,7 +1905,7 @@ and compile infos pc state (instrs : instr list) = if debug_parser () then ( - Format.printf "%a = ccal \"%s\" (" Var.print x prim; + Format.printf "%a = ccall \"%s\" (" Var.print x prim; for i = 0 to nargs - 1 do if i > 0 then Format.printf ", "; Format.printf "%a" Var.print (List.nth args i)