let mk () loc strm =
              from_stream ~quotations: !Camlp4_config.quotations loc strm