let in_comment c = { (c) with in_comment = true; }