(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/srfi/srfi-135/binary#textual->utf8__textual->utf8
    (lambda (_txt632_ _start633_ _end634_)
      (std/text/utf8#string->utf8__0
       (std/srfi/srfi-135/text#textual->string__0
        (std/srfi/srfi-135/kernel8#subtext _txt632_ _start633_ _end634_)))))
  (define std/srfi/srfi-135/binary#textual->utf8__0
    (lambda (_txt638_)
      (let ((_text640_
             (if (string? _txt638_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt638_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt638_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt638_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/binary#textual->utf8__textual->utf8
                      _txt638_)))))
        (std/srfi/srfi-135/binary#textual->utf8__textual->utf8
         _text640_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text640_)))))
  (define std/srfi/srfi-135/binary#textual->utf8__1
    (lambda (_txt643_ _start644_)
      (let* ((_text646_
              (if (string? _txt643_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt643_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt643_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt643_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/binary#textual->utf8__textual->utf8
                       _txt643_
                       _start644_))))
             (_n648_ (std/srfi/srfi-135/kernel8#%text-length _text646_)))
        (if (and (exact-integer? _start644_) (<= '0 _start644_ _n648_))
            (std/srfi/srfi-135/binary#textual->utf8__textual->utf8
             _text646_
             _start644_
             _n648_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->utf8
             _txt643_
             _start644_)))))
  (define std/srfi/srfi-135/binary#textual->utf8__2
    (lambda (_txt652_ _start653_ _end654_)
      (let* ((_text656_
              (if (string? _txt652_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt652_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt652_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt652_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/binary#textual->utf8__textual->utf8
                       _txt652_
                       _start653_
                       _end654_))))
             (_n658_ (std/srfi/srfi-135/kernel8#%text-length _text656_)))
        (if (and (exact-integer? _start653_)
                 (exact-integer? _end654_)
                 (<= '0 _start653_ _end654_ _n658_))
            (std/srfi/srfi-135/binary#textual->utf8__textual->utf8
             _text656_
             _start653_
             _end654_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->utf8
             _txt652_
             _start653_
             _end654_)))))
  (define std/srfi/srfi-135/binary#textual->utf8
    (lambda _g4298_
      (let ((_g4297_ (let () (declare (not safe)) (##length _g4298_))))
        (cond ((let () (declare (not safe)) (##fx= _g4297_ 1))
               (apply std/srfi/srfi-135/binary#textual->utf8__0 _g4298_))
              ((let () (declare (not safe)) (##fx= _g4297_ 2))
               (apply std/srfi/srfi-135/binary#textual->utf8__1 _g4298_))
              ((let () (declare (not safe)) (##fx= _g4297_ 3))
               (apply std/srfi/srfi-135/binary#textual->utf8__2 _g4298_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/binary#textual->utf8
                _g4298_))))))
  (define std/srfi/srfi-135/binary#textual->utf16__textual->utf16
    (lambda (_txt603_ _start604_ _end605_)
      (std/srfi/srfi-135/binary#%textual->utf16
       _txt603_
       _start604_
       _end605_
       '#f)))
  (define std/srfi/srfi-135/binary#textual->utf16__0
    (lambda (_txt609_)
      (let ((_text611_
             (if (string? _txt609_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt609_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt609_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt609_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/binary#textual->utf16__textual->utf16
                      _txt609_)))))
        (std/srfi/srfi-135/binary#textual->utf16__textual->utf16
         _text611_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text611_)))))
  (define std/srfi/srfi-135/binary#textual->utf16__1
    (lambda (_txt614_ _start615_)
      (let* ((_text617_
              (if (string? _txt614_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt614_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt614_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt614_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/binary#textual->utf16__textual->utf16
                       _txt614_
                       _start615_))))
             (_n619_ (std/srfi/srfi-135/kernel8#%text-length _text617_)))
        (if (and (exact-integer? _start615_) (<= '0 _start615_ _n619_))
            (std/srfi/srfi-135/binary#textual->utf16__textual->utf16
             _text617_
             _start615_
             _n619_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->utf16
             _txt614_
             _start615_)))))
  (define std/srfi/srfi-135/binary#textual->utf16__2
    (lambda (_txt623_ _start624_ _end625_)
      (let* ((_text627_
              (if (string? _txt623_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt623_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt623_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt623_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/binary#textual->utf16__textual->utf16
                       _txt623_
                       _start624_
                       _end625_))))
             (_n629_ (std/srfi/srfi-135/kernel8#%text-length _text627_)))
        (if (and (exact-integer? _start624_)
                 (exact-integer? _end625_)
                 (<= '0 _start624_ _end625_ _n629_))
            (std/srfi/srfi-135/binary#textual->utf16__textual->utf16
             _text627_
             _start624_
             _end625_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->utf16
             _txt623_
             _start624_
             _end625_)))))
  (define std/srfi/srfi-135/binary#textual->utf16
    (lambda _g4300_
      (let ((_g4299_ (let () (declare (not safe)) (##length _g4300_))))
        (cond ((let () (declare (not safe)) (##fx= _g4299_ 1))
               (apply std/srfi/srfi-135/binary#textual->utf16__0 _g4300_))
              ((let () (declare (not safe)) (##fx= _g4299_ 2))
               (apply std/srfi/srfi-135/binary#textual->utf16__1 _g4300_))
              ((let () (declare (not safe)) (##fx= _g4299_ 3))
               (apply std/srfi/srfi-135/binary#textual->utf16__2 _g4300_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/binary#textual->utf16
                _g4300_))))))
  (define std/srfi/srfi-135/binary#textual->utf16be__textual->utf16be
    (lambda (_txt574_ _start575_ _end576_)
      (std/srfi/srfi-135/binary#%textual->utf16
       _txt574_
       _start575_
       _end576_
       'big)))
  (define std/srfi/srfi-135/binary#textual->utf16be__0
    (lambda (_txt580_)
      (let ((_text582_
             (if (string? _txt580_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt580_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt580_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt580_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/binary#textual->utf16be__textual->utf16be
                      _txt580_)))))
        (std/srfi/srfi-135/binary#textual->utf16be__textual->utf16be
         _text582_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text582_)))))
  (define std/srfi/srfi-135/binary#textual->utf16be__1
    (lambda (_txt585_ _start586_)
      (let* ((_text588_
              (if (string? _txt585_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt585_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt585_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt585_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/binary#textual->utf16be__textual->utf16be
                       _txt585_
                       _start586_))))
             (_n590_ (std/srfi/srfi-135/kernel8#%text-length _text588_)))
        (if (and (exact-integer? _start586_) (<= '0 _start586_ _n590_))
            (std/srfi/srfi-135/binary#textual->utf16be__textual->utf16be
             _text588_
             _start586_
             _n590_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->utf16be
             _txt585_
             _start586_)))))
  (define std/srfi/srfi-135/binary#textual->utf16be__2
    (lambda (_txt594_ _start595_ _end596_)
      (let* ((_text598_
              (if (string? _txt594_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt594_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt594_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt594_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/binary#textual->utf16be__textual->utf16be
                       _txt594_
                       _start595_
                       _end596_))))
             (_n600_ (std/srfi/srfi-135/kernel8#%text-length _text598_)))
        (if (and (exact-integer? _start595_)
                 (exact-integer? _end596_)
                 (<= '0 _start595_ _end596_ _n600_))
            (std/srfi/srfi-135/binary#textual->utf16be__textual->utf16be
             _text598_
             _start595_
             _end596_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->utf16be
             _txt594_
             _start595_
             _end596_)))))
  (define std/srfi/srfi-135/binary#textual->utf16be
    (lambda _g4302_
      (let ((_g4301_ (let () (declare (not safe)) (##length _g4302_))))
        (cond ((let () (declare (not safe)) (##fx= _g4301_ 1))
               (apply std/srfi/srfi-135/binary#textual->utf16be__0 _g4302_))
              ((let () (declare (not safe)) (##fx= _g4301_ 2))
               (apply std/srfi/srfi-135/binary#textual->utf16be__1 _g4302_))
              ((let () (declare (not safe)) (##fx= _g4301_ 3))
               (apply std/srfi/srfi-135/binary#textual->utf16be__2 _g4302_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/binary#textual->utf16be
                _g4302_))))))
  (define std/srfi/srfi-135/binary#textual->utf16le__textual->utf16le
    (lambda (_txt545_ _start546_ _end547_)
      (std/srfi/srfi-135/binary#%textual->utf16
       _txt545_
       _start546_
       _end547_
       'little)))
  (define std/srfi/srfi-135/binary#textual->utf16le__0
    (lambda (_txt551_)
      (let ((_text553_
             (if (string? _txt551_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt551_)
                 (if (let ()
                       (declare (not safe))
                       (##structure-instance-of?
                        _txt551_
                        'std/srfi/srfi-135/kernel8#text-rtd))
                     _txt551_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/binary#textual->utf16le__textual->utf16le
                      _txt551_)))))
        (std/srfi/srfi-135/binary#textual->utf16le__textual->utf16le
         _text553_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text553_)))))
  (define std/srfi/srfi-135/binary#textual->utf16le__1
    (lambda (_txt556_ _start557_)
      (let* ((_text559_
              (if (string? _txt556_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt556_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt556_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt556_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/binary#textual->utf16le__textual->utf16le
                       _txt556_
                       _start557_))))
             (_n561_ (std/srfi/srfi-135/kernel8#%text-length _text559_)))
        (if (and (exact-integer? _start557_) (<= '0 _start557_ _n561_))
            (std/srfi/srfi-135/binary#textual->utf16le__textual->utf16le
             _text559_
             _start557_
             _n561_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->utf16le
             _txt556_
             _start557_)))))
  (define std/srfi/srfi-135/binary#textual->utf16le__2
    (lambda (_txt565_ _start566_ _end567_)
      (let* ((_text569_
              (if (string? _txt565_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt565_)
                  (if (let ()
                        (declare (not safe))
                        (##structure-instance-of?
                         _txt565_
                         'std/srfi/srfi-135/kernel8#text-rtd))
                      _txt565_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/binary#textual->utf16le__textual->utf16le
                       _txt565_
                       _start566_
                       _end567_))))
             (_n571_ (std/srfi/srfi-135/kernel8#%text-length _text569_)))
        (if (and (exact-integer? _start566_)
                 (exact-integer? _end567_)
                 (<= '0 _start566_ _end567_ _n571_))
            (std/srfi/srfi-135/binary#textual->utf16le__textual->utf16le
             _text569_
             _start566_
             _end567_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->utf16le
             _txt565_
             _start566_
             _end567_)))))
  (define std/srfi/srfi-135/binary#textual->utf16le
    (lambda _g4304_
      (let ((_g4303_ (let () (declare (not safe)) (##length _g4304_))))
        (cond ((let () (declare (not safe)) (##fx= _g4303_ 1))
               (apply std/srfi/srfi-135/binary#textual->utf16le__0 _g4304_))
              ((let () (declare (not safe)) (##fx= _g4303_ 2))
               (apply std/srfi/srfi-135/binary#textual->utf16le__1 _g4304_))
              ((let () (declare (not safe)) (##fx= _g4303_ 3))
               (apply std/srfi/srfi-135/binary#textual->utf16le__2 _g4304_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/binary#textual->utf16le
                _g4304_))))))
  (define std/srfi/srfi-135/binary#%textual->utf16
    (lambda (_txt493_ _start494_ _end495_ _endianness496_)
      (let* ((_n501_ (std/srfi/srfi-135/text#textual-fold__2
                      (lambda (_c498_ _n499_)
                        (if (< (char->integer _c498_) '65536)
                            (+ _n499_ '2)
                            (+ _n499_ '4)))
                      '0
                      _txt493_
                      _start494_
                      _end495_))
             (_n503_ (if _endianness496_ _n501_ (+ _n501_ '2)))
             (_result505_ (make-u8vector _n503_ '0))
             (_hibits510_
              (let ((_$e507_ _endianness496_))
                (if (eq? 'big _$e507_) '0 (if (eq? 'little _$e507_) '1 '0))))
             (_lobits512_ (- '1 _hibits510_)))
        (if (not _endianness496_)
            (begin
              (u8vector-set! _result505_ '0 '254)
              (u8vector-set! _result505_ '1 '255))
            '#!void)
        (let _loop515_ ((_i517_ _start494_)
                        (_j518_ (if _endianness496_ '0 '2)))
          (if (= _i517_ _end495_)
              _result505_
              (let* ((_c520_ (std/srfi/srfi-135/kernel8#text-ref
                              _txt493_
                              _i517_))
                     (_cp522_ (char->integer _c520_)))
                (if (< _cp522_ '65536)
                    (begin
                      (let* ((_high525_ (quotient _cp522_ '256))
                             (_low527_ (- _cp522_ (* '256 _high525_))))
                        (u8vector-set!
                         _result505_
                         (+ _j518_ _hibits510_)
                         _high525_)
                        (u8vector-set!
                         _result505_
                         (+ _j518_ _lobits512_)
                         _low527_))
                      (_loop515_ (+ _i517_ '1) (+ _j518_ '2)))
                    (begin
                      (let* ((_k530_ (- _cp522_ '65536))
                             (_high-surrogate532_
                              (+ '55296 (quotient _k530_ '1024)))
                             (_low-surrogate534_
                              (+ '56320 (remainder _k530_ '1024)))
                             (_high0536_ (quotient _high-surrogate532_ '256))
                             (_low0538_
                              (- _high-surrogate532_ (* '256 _high0536_)))
                             (_high1540_ (quotient _low-surrogate534_ '256))
                             (_low1542_
                              (- _low-surrogate534_ (* '256 _high1540_))))
                        (u8vector-set!
                         _result505_
                         (+ _j518_ _hibits510_)
                         _high0536_)
                        (u8vector-set!
                         _result505_
                         (+ _j518_ _lobits512_)
                         _low0538_)
                        (u8vector-set!
                         _result505_
                         (+ _j518_ '2 _hibits510_)
                         _high1540_)
                        (u8vector-set!
                         _result505_
                         (+ _j518_ '2 _lobits512_)
                         _low1542_))
                      (_loop515_ (+ _i517_ '1) (+ _j518_ '4))))))))))
  (define std/srfi/srfi-135/binary#utf8->text__0
    (lambda (_bv484_)
      (if (u8vector? _bv484_)
          (std/srfi/srfi-135/kernel8#%string->text
           (std/text/utf8#utf8->string__0 _bv484_))
          (std/srfi/srfi-135/kernel8#complain 'utf8->text _bv484_))))
  (define std/srfi/srfi-135/binary#utf8->text__1
    (lambda (_bv486_ _start487_)
      (if (and (u8vector? _bv486_)
               (exact-integer? _start487_)
               (<= '0 _start487_ (u8vector-length _bv486_)))
          (std/srfi/srfi-135/kernel8#%string->text
           (std/text/utf8#utf8->string__1 _bv486_ _start487_))
          (std/srfi/srfi-135/kernel8#complain
           'utf8->text
           _bv486_
           _start487_))))
  (define std/srfi/srfi-135/binary#utf8->text__2
    (lambda (_bv489_ _start490_ _end491_)
      (if (and (u8vector? _bv489_)
               (exact-integer? _start490_)
               (exact-integer? _end491_)
               (<= '0 _start490_ _end491_ (u8vector-length _bv489_)))
          (std/srfi/srfi-135/kernel8#%string->text
           (std/text/utf8#utf8->string__% _bv489_ _start490_ _end491_))
          (std/srfi/srfi-135/kernel8#complain
           'utf8->text
           _bv489_
           _start490_
           _end491_))))
  (define std/srfi/srfi-135/binary#utf8->text
    (lambda _g4306_
      (let ((_g4305_ (let () (declare (not safe)) (##length _g4306_))))
        (cond ((let () (declare (not safe)) (##fx= _g4305_ 1))
               (apply std/srfi/srfi-135/binary#utf8->text__0 _g4306_))
              ((let () (declare (not safe)) (##fx= _g4305_ 2))
               (apply std/srfi/srfi-135/binary#utf8->text__1 _g4306_))
              ((let () (declare (not safe)) (##fx= _g4305_ 3))
               (apply std/srfi/srfi-135/binary#utf8->text__2 _g4306_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/binary#utf8->text
                _g4306_))))))
  (define std/srfi/srfi-135/binary#utf16->text__0
    (lambda (_bv475_)
      (if (u8vector? _bv475_)
          (std/srfi/srfi-135/binary#%utf16->text
           _bv475_
           '0
           (u8vector-length _bv475_)
           '#f)
          (std/srfi/srfi-135/kernel8#complain 'utf16->text _bv475_))))
  (define std/srfi/srfi-135/binary#utf16->text__1
    (lambda (_bv477_ _start478_)
      (if (and (u8vector? _bv477_)
               (exact-integer? _start478_)
               (<= '0 _start478_ (u8vector-length _bv477_)))
          (std/srfi/srfi-135/binary#%utf16->text
           _bv477_
           _start478_
           (u8vector-length _bv477_)
           '#f)
          (std/srfi/srfi-135/kernel8#complain
           'utf16->text
           _bv477_
           _start478_))))
  (define std/srfi/srfi-135/binary#utf16->text__2
    (lambda (_bv480_ _start481_ _end482_)
      (if (and (u8vector? _bv480_)
               (exact-integer? _start481_)
               (exact-integer? _end482_)
               (<= '0 _start481_ _end482_ (u8vector-length _bv480_)))
          (std/srfi/srfi-135/binary#%utf16->text
           _bv480_
           _start481_
           _end482_
           '#f)
          (std/srfi/srfi-135/kernel8#complain
           'utf16->text
           _bv480_
           _start481_
           _end482_))))
  (define std/srfi/srfi-135/binary#utf16->text
    (lambda _g4308_
      (let ((_g4307_ (let () (declare (not safe)) (##length _g4308_))))
        (cond ((let () (declare (not safe)) (##fx= _g4307_ 1))
               (apply std/srfi/srfi-135/binary#utf16->text__0 _g4308_))
              ((let () (declare (not safe)) (##fx= _g4307_ 2))
               (apply std/srfi/srfi-135/binary#utf16->text__1 _g4308_))
              ((let () (declare (not safe)) (##fx= _g4307_ 3))
               (apply std/srfi/srfi-135/binary#utf16->text__2 _g4308_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/binary#utf16->text
                _g4308_))))))
  (define std/srfi/srfi-135/binary#utf16be->text__0
    (lambda (_bv466_)
      (if (u8vector? _bv466_)
          (std/srfi/srfi-135/binary#%utf16->text
           _bv466_
           '0
           (u8vector-length _bv466_)
           'big)
          (std/srfi/srfi-135/kernel8#complain 'utf16be->text _bv466_))))
  (define std/srfi/srfi-135/binary#utf16be->text__1
    (lambda (_bv468_ _start469_)
      (if (and (u8vector? _bv468_)
               (exact-integer? _start469_)
               (<= '0 _start469_ (u8vector-length _bv468_)))
          (std/srfi/srfi-135/binary#%utf16->text
           _bv468_
           _start469_
           (u8vector-length _bv468_)
           'big)
          (std/srfi/srfi-135/kernel8#complain
           'utf16be->text
           _bv468_
           _start469_))))
  (define std/srfi/srfi-135/binary#utf16be->text__2
    (lambda (_bv471_ _start472_ _end473_)
      (if (and (u8vector? _bv471_)
               (exact-integer? _start472_)
               (exact-integer? _end473_)
               (<= '0 _start472_ _end473_ (u8vector-length _bv471_)))
          (std/srfi/srfi-135/binary#%utf16->text
           _bv471_
           _start472_
           _end473_
           'big)
          (std/srfi/srfi-135/kernel8#complain
           'utf16be->text
           _bv471_
           _start472_
           _end473_))))
  (define std/srfi/srfi-135/binary#utf16be->text
    (lambda _g4310_
      (let ((_g4309_ (let () (declare (not safe)) (##length _g4310_))))
        (cond ((let () (declare (not safe)) (##fx= _g4309_ 1))
               (apply std/srfi/srfi-135/binary#utf16be->text__0 _g4310_))
              ((let () (declare (not safe)) (##fx= _g4309_ 2))
               (apply std/srfi/srfi-135/binary#utf16be->text__1 _g4310_))
              ((let () (declare (not safe)) (##fx= _g4309_ 3))
               (apply std/srfi/srfi-135/binary#utf16be->text__2 _g4310_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/binary#utf16be->text
                _g4310_))))))
  (define std/srfi/srfi-135/binary#utf16le->text__0
    (lambda (_bv457_)
      (if (u8vector? _bv457_)
          (std/srfi/srfi-135/binary#%utf16->text
           _bv457_
           '0
           (u8vector-length _bv457_)
           'little)
          (std/srfi/srfi-135/kernel8#complain 'utf16le->text _bv457_))))
  (define std/srfi/srfi-135/binary#utf16le->text__1
    (lambda (_bv459_ _start460_)
      (if (and (u8vector? _bv459_)
               (exact-integer? _start460_)
               (even? _start460_)
               (<= '0 _start460_ (u8vector-length _bv459_)))
          (std/srfi/srfi-135/binary#%utf16->text
           _bv459_
           _start460_
           (u8vector-length _bv459_)
           'little)
          (std/srfi/srfi-135/kernel8#complain
           'utf16le->text
           _bv459_
           _start460_))))
  (define std/srfi/srfi-135/binary#utf16le->text__2
    (lambda (_bv462_ _start463_ _end464_)
      (if (and (u8vector? _bv462_)
               (exact-integer? _start463_)
               (exact-integer? _end464_)
               (even? _start463_)
               (even? _end464_)
               (<= '0 _start463_ _end464_ (u8vector-length _bv462_)))
          (std/srfi/srfi-135/binary#%utf16->text
           _bv462_
           _start463_
           _end464_
           'little)
          (std/srfi/srfi-135/kernel8#complain
           'utf16le->text
           _bv462_
           _start463_
           _end464_))))
  (define std/srfi/srfi-135/binary#utf16le->text
    (lambda _g4312_
      (let ((_g4311_ (let () (declare (not safe)) (##length _g4312_))))
        (cond ((let () (declare (not safe)) (##fx= _g4311_ 1))
               (apply std/srfi/srfi-135/binary#utf16le->text__0 _g4312_))
              ((let () (declare (not safe)) (##fx= _g4311_ 2))
               (apply std/srfi/srfi-135/binary#utf16le->text__1 _g4312_))
              ((let () (declare (not safe)) (##fx= _g4311_ 3))
               (apply std/srfi/srfi-135/binary#utf16le->text__2 _g4312_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/binary#utf16le->text
                _g4312_))))))
  (define std/srfi/srfi-135/binary#%utf16->text
    (lambda (_bv405_ _start406_ _end407_ _endianness408_)
      (let* ((_bom413_
              (if (not _endianness408_)
                  (if (< _start406_ _end407_)
                      (let ((_byte0410_ (u8vector-ref _bv405_ _start406_))
                            (_byte1411_
                             (u8vector-ref _bv405_ (+ _start406_ '1))))
                        (if (and (= _byte0410_ '254) (= _byte1411_ '255))
                            'big
                            (if (and (= _byte1411_ '254) (= _byte0410_ '255))
                                'little
                                '#f)))
                      '#f)
                  '#f))
             (_start415_ (if _bom413_ (+ _start406_ '2) _start406_))
             (_endianness423_
              (let ((_$e417_ _endianness408_))
                (if _$e417_
                    _$e417_
                    (let ((_$e420_ _bom413_)) (if _$e420_ _$e420_ 'big)))))
             (_hibits425_ (if (eq? _endianness423_ 'big) '0 '1))
             (_lobits427_ (- '1 _hibits425_)))
        (std/srfi/srfi-135/text#text-unfold__0
         (lambda (_i430_) (>= _i430_ _end407_))
         (lambda (_i432_)
           (let* ((_high434_ (u8vector-ref _bv405_ (+ _i432_ _hibits425_)))
                  (_low436_ (u8vector-ref _bv405_ (+ _i432_ _lobits427_)))
                  (_cp438_ (if (= _high434_ '0)
                               _low436_
                               (+ (* '256 _high434_) _low436_))))
             (if (< _cp438_ '55296)
                 (integer->char _cp438_)
                 (if (and (< _cp438_ '56320) (< (+ _i432_ '2) _end407_))
                     (let* ((_i441_ (+ _i432_ '2))
                            (_high443_
                             (u8vector-ref _bv405_ (+ _i441_ _hibits425_)))
                            (_low445_
                             (u8vector-ref _bv405_ (+ _i441_ _lobits427_)))
                            (_cp2447_
                             (if (= _high443_ '0)
                                 _low445_
                                 (+ (* '256 _high443_) _low445_))))
                       (if (<= '56320 _cp2447_ '57343)
                           (integer->char
                            (+ '65536
                               (* '1024 (- _cp438_ '55296))
                               (- _cp2447_ '56320)))
                           (std/srfi/srfi-135/binary#%illegal-utf16
                            _bv405_
                            (- _i441_ '2)
                            _cp438_
                            _cp2447_)))
                     (if (< _cp438_ '65536)
                         (integer->char _cp438_)
                         (std/srfi/srfi-135/binary#%illegal-utf16
                          _bv405_
                          _i432_
                          _cp438_))))))
         (lambda (_i450_)
           (let ((_cp452_ (+ (* '256
                                (u8vector-ref _bv405_ (+ _i450_ _hibits425_)))
                             (u8vector-ref _bv405_ (+ _i450_ _lobits427_)))))
             (if (or (< _cp452_ '55296) (<= '57344 _cp452_ '65535))
                 (+ _i450_ '2)
                 (+ _i450_ '4))))
         _start415_))))
  (define std/srfi/srfi-135/binary#%illegal-utf16
    (lambda (_bv400_ _i401_ _cp402_ . _rest403_)
      (if (null? _rest403_)
          (error '"illegal UTF-16: " _bv400_ _i401_ _cp402_)
          (error '"illegal UTF-16: "
                 _bv400_
                 _i401_
                 _cp402_
                 (car _rest403_))))))
