diff --git a/conv.ml b/conv.ml index ab72de05..b0a38d68 100644 --- a/conv.ml +++ b/conv.ml @@ -564,7 +564,7 @@ module Point = struct yield_record {x;y;color;prev} )) - let rec source = + let source = Source.(record_fix (fun self -> field "x" (fun p -> p.x) int_ @@