Attachment #260297 for bug #352174

View | Details | Raw Unified | Return to bug 352174
Collapse All | Expand All

Lines 2080-2086 value poly_type pc = Link Here

(-)a/etc/pr_o.ml (-2 / +1 lines)
2080	value label_ipatt expr pc (p, oe) =	2080	value label_ipatt expr pc (p, oe) =
2081	match Pcaml.unvala oe with	2081	match Pcaml.unvala oe with
2082	[ Some e -> pprintf pc "~%p:%p" patt p expr e	2082	[ Some e -> pprintf pc "~%p:%p" patt p expr e
2083	\| None -> patt pc p ]	2083	\| None -> pprintf pc "~%p" patt p ]
2084	;	2084	;
2085		2085
2086	EXTEND_PRINTER	2086	EXTEND_PRINTER
2087	-

Return to bug 352174