(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/parser/defparser#$-
    (let ()
      (declare (not safe))
      (##structure std/parser/base#token::t '$ '#f '#f)))
  (define std/parser/defparser#parser-rewind
    (lambda (_ts6449_ _xtoks6450_ _toks6451_)
      (let _lp6453_ ((_rest6455_ _xtoks6450_))
        (if (eq? _rest6455_ _toks6451_)
            '#!void
            (let* ((_rest64566463_ _rest6455_)
                   (_E64586467_
                    (lambda () (error '"No clause matching" _rest64566463_)))
                   (_K64596473_
                    (lambda (_rest6470_ _tok6471_)
                      (std/parser/lexer#token-stream-unget _ts6449_ _tok6471_)
                      (_lp6453_ _rest6470_))))
              (if (let () (declare (not safe)) (##pair? _rest64566463_))
                  (let ((_hd64606476_
                         (let () (declare (not safe)) (##car _rest64566463_)))
                        (_tl64616478_
                         (let () (declare (not safe)) (##cdr _rest64566463_))))
                    (let* ((_tok6481_ _hd64606476_) (_rest6483_ _tl64616478_))
                      (_K64596473_ _rest6483_ _tok6481_)))
                  (_E64586467_)))))))
  (define std/parser/defparser#parser-fail
    (lambda (_where6439_ _ts6440_ _toks6441_)
      (let ((_last6443_ (car _toks6441_)))
        (for-each
         (lambda (_g64446446_)
           (std/parser/lexer#token-stream-unget _ts6440_ _g64446446_))
         _toks6441_)
        (if (std/parser/lexer#$$? _last6443_)
            (std/parser/base#raise-parse-error
             _where6439_
             '"Premature end of input"
             _last6443_)
            (std/parser/base#raise-parse-error
             _where6439_
             '"Failed to parse input"
             _last6443_)))))
  (define std/parser/defparser#parser-input-stream
    (lambda (_input6436_ _lexer6437_)
      (if (let ()
            (declare (not safe))
            (##structure-direct-instance-of?
             _input6436_
             'std/parser/lexer#token-stream::t))
          _input6436_
          (_lexer6437_ _input6436_))))
  (define std/parser/defparser#parser-parse
    (lambda (_where6427_ _ts6428_ _parse-e6429_ _wrap-e6430_)
      (_parse-e6429_
       _ts6428_
       '()
       _wrap-e6430_
       (lambda (_g11117_ _tok6432_) _tok6432_)
       (lambda (_toks6434_)
         (std/parser/defparser#parser-fail
          _where6427_
          _ts6428_
          _toks6434_))))))
