From 594b4bae2ed78515fb951aa73010e7f3d4093ca4 Mon Sep 17 00:00:00 2001 From: Joseph Ferano Date: Mon, 21 Sep 2026 20:37:30 +0700 Subject: [PATCH] A macro call records a handful of forms, not sixty-four --- lib/expand.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/expand.ml b/lib/expand.ml index c058f339..fec45d82 100644 --- a/lib/expand.ml +++ b/lib/expand.ml @@ -187,7 +187,7 @@ let call ~loc (fn : Dynload.addr) (args : Form.t list) : Form.t = [Macro] and on the way out of one — so no address recorded here can be handed to a second allocation while the table still holds it, and the table is dropped the moment this returns either way. *) - let sites : sites = Hashtbl.create 64 in + let sites : sites = Hashtbl.create 8 in let a = Dynload.take (max (n * form_size) 1) in List.iteri (fun i x -> write sites (Nativeint.add a (Nativeint.of_int (i * form_size))) x)