let
errstart l =
match
!err_report
with
None
->
err_report :=
Some
(
new
err_report l)
|
_
->
()