JosephFerano/flan
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

The break loop's typed-value walk prints arrays and slices as [1 2 3], matching evaluation

Browse Source
This commit is contained in:
Joseph Ferano 2026-09-25 22:18:45 +07:00
parent a1e5e39dba
commit c1b21edaf4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/inspect.ml
View File

@ -295,7 +295,7 @@ let rec walk c b depth addr (ty : Types.t) =
let shown = min n Render.max_span and sz = size c t in let shown = min n Render.max_span and sz = size c t in
put b "["; put b "[";
for i = 0 to shown - 1 do for i = 0 to shown - 1 do
put b " "; if i > 0 then put b " ";
walk c b (depth + 1) (addr + (i * sz)) t walk c b (depth + 1) (addr + (i * sz)) t
done; done;
if n > shown then put b " ..."; if n > shown then put b " ...";
@ -307,7 +307,7 @@ let rec walk c b depth addr (ty : Types.t) =
let sz = size c t in let sz = size c t in
put b "["; put b "[";
for i = 0 to n - 1 do for i = 0 to n - 1 do
put b " "; if i > 0 then put b " ";
walk c b (depth + 1) (p + (i * sz)) t walk c b (depth + 1) (p + (i * sz)) t
done; done;
put b "]" put b "]"