prelude: :gerbil/compiler/ssxi
package: std/parser

(begin
  (declare-type
   std/parser/base#parse-error::t
   (@struct-type std/parser/base#parse-error::t error::t 0 #!void ()))
  (declare-type
   std/parser/base#parse-error?
   (@struct-pred std/parser/base#parse-error::t))
  (declare-type
   std/parser/base#make-parse-error
   (@struct-cons std/parser/base#parse-error::t))
  (declare-type
   std/parser/base#token::t
   (@struct-type std/parser/base#token::t #f 3 #f ((final: . #t))))
  (declare-type std/parser/base#token? (@struct-pred std/parser/base#token::t))
  (declare-type
   std/parser/base#make-token
   (@struct-cons std/parser/base#token::t))
  (declare-type
   std/parser/base#token-t
   (@struct-getf std/parser/base#token::t 0 #f))
  (declare-type
   std/parser/base#token-e
   (@struct-getf std/parser/base#token::t 1 #f))
  (declare-type
   std/parser/base#token-loc
   (@struct-getf std/parser/base#token::t 2 #f))
  (declare-type
   std/parser/base#token-t-set!
   (@struct-setf std/parser/base#token::t 0 #f))
  (declare-type
   std/parser/base#token-e-set!
   (@struct-setf std/parser/base#token::t 1 #f))
  (declare-type
   std/parser/base#token-loc-set!
   (@struct-setf std/parser/base#token::t 2 #f))
  (declare-type
   std/parser/base#location::t
   (@struct-type std/parser/base#location::t #f 5 #f ((final: . #t))))
  (declare-type
   std/parser/base#location?
   (@struct-pred std/parser/base#location::t))
  (declare-type
   std/parser/base#make-location
   (@struct-cons std/parser/base#location::t))
  (declare-type
   std/parser/base#location-port
   (@struct-getf std/parser/base#location::t 0 #f))
  (declare-type
   std/parser/base#location-line
   (@struct-getf std/parser/base#location::t 1 #f))
  (declare-type
   std/parser/base#location-col
   (@struct-getf std/parser/base#location::t 2 #f))
  (declare-type
   std/parser/base#location-off
   (@struct-getf std/parser/base#location::t 3 #f))
  (declare-type
   std/parser/base#location-xoff
   (@struct-getf std/parser/base#location::t 4 #f))
  (declare-type
   std/parser/base#location-port-set!
   (@struct-setf std/parser/base#location::t 0 #f))
  (declare-type
   std/parser/base#location-line-set!
   (@struct-setf std/parser/base#location::t 1 #f))
  (declare-type
   std/parser/base#location-col-set!
   (@struct-setf std/parser/base#location::t 2 #f))
  (declare-type
   std/parser/base#location-off-set!
   (@struct-setf std/parser/base#location::t 3 #f))
  (declare-type
   std/parser/base#location-xoff-set!
   (@struct-setf std/parser/base#location::t 4 #f))
  (declare-type std/parser/base#wrap-identity (@lambda 2 #f))
  (declare-type std/parser/base#wrap-ast (@lambda 2 #f))
  (declare-type std/parser/base#unwrap-ast (@lambda 1 #f))
  (declare-type std/parser/base#token->syntax (@lambda 1 #f))
  (declare-type std/parser/base#raise-parse-error (@lambda (3) #f))
  (declare-type std/parser/base#parse-error::display-exception (@lambda 2 #f))
  (declare-method
   std/parser/base#parse-error::t
   display-exception
   std/parser/base#parse-error::display-exception
   #f)
  (declare-type std/parser/base#location->source-location (@lambda 1 #f))
  (declare-type std/parser/base#display-location__% (@lambda 2 #f))
  (declare-type std/parser/base#display-location__0 (@lambda 1 #f))
  (declare-type
   std/parser/base#display-location
   (@case-lambda
    (1 std/parser/base#display-location__0)
    (2 std/parser/base#display-location__%)))
  (declare-type std/parser/base#location-delta (@lambda 2 #f))
  (declare-type std/parser/base#location-delta* (@lambda 2 #f)))
