method set_comments =
                  fun b ->
                    {< mode = if b then `comments else `no_comments; >}