(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200))
(begin
  (define |std/parser/base[1]#_g4600_|
    (##structure
     gx#syntax-quote::t
     'parse-error::t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4601_|
    (##structure
     gx#syntax-quote::t
     'error::t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4602_|
    (##structure
     gx#syntax-quote::t
     'make-parse-error
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4603_|
    (##structure
     gx#syntax-quote::t
     'parse-error?
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4604_|
    (##structure
     gx#syntax-quote::t
     '<error>
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4605_|
    (##structure
     gx#syntax-quote::t
     'token::t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4606_|
    (##structure
     gx#syntax-quote::t
     'make-token
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4607_|
    (##structure
     gx#syntax-quote::t
     'token?
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4608_|
    (##structure
     gx#syntax-quote::t
     'token-t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4609_|
    (##structure
     gx#syntax-quote::t
     'token-e
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4610_|
    (##structure
     gx#syntax-quote::t
     'token-loc
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4611_|
    (##structure
     gx#syntax-quote::t
     'token-t-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4612_|
    (##structure
     gx#syntax-quote::t
     'token-e-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4613_|
    (##structure
     gx#syntax-quote::t
     'token-loc-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4614_|
    (##structure
     gx#syntax-quote::t
     'location::t
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4615_|
    (##structure
     gx#syntax-quote::t
     'make-location
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4616_|
    (##structure
     gx#syntax-quote::t
     'location?
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4617_|
    (##structure
     gx#syntax-quote::t
     'location-port
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4618_|
    (##structure
     gx#syntax-quote::t
     'location-line
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4619_|
    (##structure
     gx#syntax-quote::t
     'location-col
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4620_|
    (##structure
     gx#syntax-quote::t
     'location-off
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4621_|
    (##structure
     gx#syntax-quote::t
     'location-xoff
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4622_|
    (##structure
     gx#syntax-quote::t
     'location-port-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4623_|
    (##structure
     gx#syntax-quote::t
     'location-line-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4624_|
    (##structure
     gx#syntax-quote::t
     'location-col-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4625_|
    (##structure
     gx#syntax-quote::t
     'location-off-set!
     #f
     (gx#current-expander-context)
     '()))
  (define |std/parser/base[1]#_g4626_|
    (##structure
     gx#syntax-quote::t
     'location-xoff-set!
     #f
     (gx#current-expander-context)
     '()))
  (begin
    (define |std/parser/base[:0:]#parse-error|
      (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info|
       'runtime-identifier:
       |std/parser/base[1]#_g4600_|
       'expander-identifiers:
       (cons |std/parser/base[1]#_g4601_|
             (cons |std/parser/base[1]#_g4600_|
                   (cons |std/parser/base[1]#_g4602_|
                         (cons |std/parser/base[1]#_g4603_|
                               (cons '() (cons '() '()))))))
       'type-exhibitor:
       (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor|
        '#f
        |std/parser/base[1]#_g4604_|
        'parse-error
        '#f
        '()
        '())))
    (define |std/parser/base[:0:]#token|
      (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info|
       'runtime-identifier:
       |std/parser/base[1]#_g4605_|
       'expander-identifiers:
       (cons '#f
             (cons |std/parser/base[1]#_g4605_|
                   (cons |std/parser/base[1]#_g4606_|
                         (cons |std/parser/base[1]#_g4607_|
                               (cons (cons |std/parser/base[1]#_g4608_|
                                           (cons |std/parser/base[1]#_g4609_|
                                                 (cons |std/parser/base[1]#_g4610_|
                                                       '())))
                                     (cons (cons |std/parser/base[1]#_g4611_|
                                                 (cons |std/parser/base[1]#_g4612_|
                                                       (cons |std/parser/base[1]#_g4613_|
                                                             '())))
                                           '()))))))
       'type-exhibitor:
       (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor|
        '#f
        '#f
        'token
        '#f
        '((final: . #t))
        '(t e loc))))
    (define |std/parser/base[:0:]#location|
      (|gerbil/core$<MOP>$<MOP:2>[1]#make-extended-struct-info|
       'runtime-identifier:
       |std/parser/base[1]#_g4614_|
       'expander-identifiers:
       (cons '#f
             (cons |std/parser/base[1]#_g4614_|
                   (cons |std/parser/base[1]#_g4615_|
                         (cons |std/parser/base[1]#_g4616_|
                               (cons (cons |std/parser/base[1]#_g4617_|
                                           (cons |std/parser/base[1]#_g4618_|
                                                 (cons |std/parser/base[1]#_g4619_|
                                                       (cons |std/parser/base[1]#_g4620_|
                                                             (cons |std/parser/base[1]#_g4621_|
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                     (cons (cons |std/parser/base[1]#_g4622_|
                                                 (cons |std/parser/base[1]#_g4623_|
                                                       (cons |std/parser/base[1]#_g4624_|
                                                             (cons |std/parser/base[1]#_g4625_|
;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                           (cons |std/parser/base[1]#_g4626_| '())))))
;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
                                           '()))))))
       'type-exhibitor:
       (|gerbil/core$<MOP>$<MOP:2>[1]#make-runtime-struct-exhibitor|
        '#f
        '#f
        'location
        '#f
        '((final: . #t))
        '(port line col off xoff))))))
