(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/srfi/srfi-135/binary#textual->utf8__textual->utf8
    (lambda (_txt97838_ _start97839_ _end97840_)
      (std/text/utf8#string->utf8__0
       (std/srfi/srfi-135/text#textual->string__0
        (std/srfi/srfi-135/kernel8#subtext
         _txt97838_
         _start97839_
         _end97840_)))))
  (define std/srfi/srfi-135/binary#textual->utf8__0
    (lambda (_txt97844_)
      (let ((_text97846_
             (if (string? _txt97844_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt97844_)
                 (if (##structure-instance-of?
                      _txt97844_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt97844_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/binary#textual->utf8__textual->utf8
                      _txt97844_)))))
        (std/srfi/srfi-135/binary#textual->utf8__textual->utf8
         _text97846_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text97846_)))))
  (define std/srfi/srfi-135/binary#textual->utf8__1
    (lambda (_txt97849_ _start97850_)
      (let* ((_text97852_
              (if (string? _txt97849_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt97849_)
                  (if (##structure-instance-of?
                       _txt97849_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt97849_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/binary#textual->utf8__textual->utf8
                       _txt97849_
                       _start97850_))))
             (_n97854_ (std/srfi/srfi-135/kernel8#%text-length _text97852_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start97850_)
                 (<= '0 _start97850_ _n97854_))
            (std/srfi/srfi-135/binary#textual->utf8__textual->utf8
             _text97852_
             _start97850_
             _n97854_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->utf8
             _txt97849_
             _start97850_)))))
  (define std/srfi/srfi-135/binary#textual->utf8__2
    (lambda (_txt97858_ _start97859_ _end97860_)
      (let* ((_text97862_
              (if (string? _txt97858_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt97858_)
                  (if (##structure-instance-of?
                       _txt97858_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt97858_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/binary#textual->utf8__textual->utf8
                       _txt97858_
                       _start97859_
                       _end97860_))))
             (_n97864_ (std/srfi/srfi-135/kernel8#%text-length _text97862_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start97859_)
                 (std/srfi/srfi-135/etc#exact-integer? _end97860_)
                 (<= '0 _start97859_ _end97860_ _n97864_))
            (std/srfi/srfi-135/binary#textual->utf8__textual->utf8
             _text97862_
             _start97859_
             _end97860_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->utf8
             _txt97858_
             _start97859_
             _end97860_)))))
  (define std/srfi/srfi-135/binary#textual->utf8
    (lambda _g97867_
      (let ((_g97866_ (length _g97867_)))
        (cond ((##fx= _g97866_ 1)
               (apply std/srfi/srfi-135/binary#textual->utf8__0 _g97867_))
              ((##fx= _g97866_ 2)
               (apply std/srfi/srfi-135/binary#textual->utf8__1 _g97867_))
              ((##fx= _g97866_ 3)
               (apply std/srfi/srfi-135/binary#textual->utf8__2 _g97867_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/binary#textual->utf8
                _g97867_))))))
  (define std/srfi/srfi-135/binary#textual->utf16__textual->utf16
    (lambda (_txt97809_ _start97810_ _end97811_)
      (std/srfi/srfi-135/binary#%textual->utf16
       _txt97809_
       _start97810_
       _end97811_
       '#f)))
  (define std/srfi/srfi-135/binary#textual->utf16__0
    (lambda (_txt97815_)
      (let ((_text97817_
             (if (string? _txt97815_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt97815_)
                 (if (##structure-instance-of?
                      _txt97815_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt97815_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/binary#textual->utf16__textual->utf16
                      _txt97815_)))))
        (std/srfi/srfi-135/binary#textual->utf16__textual->utf16
         _text97817_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text97817_)))))
  (define std/srfi/srfi-135/binary#textual->utf16__1
    (lambda (_txt97820_ _start97821_)
      (let* ((_text97823_
              (if (string? _txt97820_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt97820_)
                  (if (##structure-instance-of?
                       _txt97820_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt97820_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/binary#textual->utf16__textual->utf16
                       _txt97820_
                       _start97821_))))
             (_n97825_ (std/srfi/srfi-135/kernel8#%text-length _text97823_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start97821_)
                 (<= '0 _start97821_ _n97825_))
            (std/srfi/srfi-135/binary#textual->utf16__textual->utf16
             _text97823_
             _start97821_
             _n97825_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->utf16
             _txt97820_
             _start97821_)))))
  (define std/srfi/srfi-135/binary#textual->utf16__2
    (lambda (_txt97829_ _start97830_ _end97831_)
      (let* ((_text97833_
              (if (string? _txt97829_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt97829_)
                  (if (##structure-instance-of?
                       _txt97829_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt97829_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/binary#textual->utf16__textual->utf16
                       _txt97829_
                       _start97830_
                       _end97831_))))
             (_n97835_ (std/srfi/srfi-135/kernel8#%text-length _text97833_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start97830_)
                 (std/srfi/srfi-135/etc#exact-integer? _end97831_)
                 (<= '0 _start97830_ _end97831_ _n97835_))
            (std/srfi/srfi-135/binary#textual->utf16__textual->utf16
             _text97833_
             _start97830_
             _end97831_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->utf16
             _txt97829_
             _start97830_
             _end97831_)))))
  (define std/srfi/srfi-135/binary#textual->utf16
    (lambda _g97869_
      (let ((_g97868_ (length _g97869_)))
        (cond ((##fx= _g97868_ 1)
               (apply std/srfi/srfi-135/binary#textual->utf16__0 _g97869_))
              ((##fx= _g97868_ 2)
               (apply std/srfi/srfi-135/binary#textual->utf16__1 _g97869_))
              ((##fx= _g97868_ 3)
               (apply std/srfi/srfi-135/binary#textual->utf16__2 _g97869_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/binary#textual->utf16
                _g97869_))))))
  (define std/srfi/srfi-135/binary#textual->utf16be__textual->utf16be
    (lambda (_txt97780_ _start97781_ _end97782_)
      (std/srfi/srfi-135/binary#%textual->utf16
       _txt97780_
       _start97781_
       _end97782_
       'big)))
  (define std/srfi/srfi-135/binary#textual->utf16be__0
    (lambda (_txt97786_)
      (let ((_text97788_
             (if (string? _txt97786_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt97786_)
                 (if (##structure-instance-of?
                      _txt97786_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt97786_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/binary#textual->utf16be__textual->utf16be
                      _txt97786_)))))
        (std/srfi/srfi-135/binary#textual->utf16be__textual->utf16be
         _text97788_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text97788_)))))
  (define std/srfi/srfi-135/binary#textual->utf16be__1
    (lambda (_txt97791_ _start97792_)
      (let* ((_text97794_
              (if (string? _txt97791_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt97791_)
                  (if (##structure-instance-of?
                       _txt97791_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt97791_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/binary#textual->utf16be__textual->utf16be
                       _txt97791_
                       _start97792_))))
             (_n97796_ (std/srfi/srfi-135/kernel8#%text-length _text97794_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start97792_)
                 (<= '0 _start97792_ _n97796_))
            (std/srfi/srfi-135/binary#textual->utf16be__textual->utf16be
             _text97794_
             _start97792_
             _n97796_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->utf16be
             _txt97791_
             _start97792_)))))
  (define std/srfi/srfi-135/binary#textual->utf16be__2
    (lambda (_txt97800_ _start97801_ _end97802_)
      (let* ((_text97804_
              (if (string? _txt97800_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt97800_)
                  (if (##structure-instance-of?
                       _txt97800_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt97800_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/binary#textual->utf16be__textual->utf16be
                       _txt97800_
                       _start97801_
                       _end97802_))))
             (_n97806_ (std/srfi/srfi-135/kernel8#%text-length _text97804_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start97801_)
                 (std/srfi/srfi-135/etc#exact-integer? _end97802_)
                 (<= '0 _start97801_ _end97802_ _n97806_))
            (std/srfi/srfi-135/binary#textual->utf16be__textual->utf16be
             _text97804_
             _start97801_
             _end97802_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->utf16be
             _txt97800_
             _start97801_
             _end97802_)))))
  (define std/srfi/srfi-135/binary#textual->utf16be
    (lambda _g97871_
      (let ((_g97870_ (length _g97871_)))
        (cond ((##fx= _g97870_ 1)
               (apply std/srfi/srfi-135/binary#textual->utf16be__0 _g97871_))
              ((##fx= _g97870_ 2)
               (apply std/srfi/srfi-135/binary#textual->utf16be__1 _g97871_))
              ((##fx= _g97870_ 3)
               (apply std/srfi/srfi-135/binary#textual->utf16be__2 _g97871_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/binary#textual->utf16be
                _g97871_))))))
  (define std/srfi/srfi-135/binary#textual->utf16le__textual->utf16le
    (lambda (_txt97751_ _start97752_ _end97753_)
      (std/srfi/srfi-135/binary#%textual->utf16
       _txt97751_
       _start97752_
       _end97753_
       'little)))
  (define std/srfi/srfi-135/binary#textual->utf16le__0
    (lambda (_txt97757_)
      (let ((_text97759_
             (if (string? _txt97757_)
                 (std/srfi/srfi-135/kernel8#%string->text _txt97757_)
                 (if (##structure-instance-of?
                      _txt97757_
                      'std/srfi/srfi-135/kernel8#text-rtd)
                     _txt97757_
                     (std/srfi/srfi-135/kernel8#complain
                      std/srfi/srfi-135/binary#textual->utf16le__textual->utf16le
                      _txt97757_)))))
        (std/srfi/srfi-135/binary#textual->utf16le__textual->utf16le
         _text97759_
         '0
         (std/srfi/srfi-135/kernel8#%text-length _text97759_)))))
  (define std/srfi/srfi-135/binary#textual->utf16le__1
    (lambda (_txt97762_ _start97763_)
      (let* ((_text97765_
              (if (string? _txt97762_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt97762_)
                  (if (##structure-instance-of?
                       _txt97762_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt97762_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/binary#textual->utf16le__textual->utf16le
                       _txt97762_
                       _start97763_))))
             (_n97767_ (std/srfi/srfi-135/kernel8#%text-length _text97765_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start97763_)
                 (<= '0 _start97763_ _n97767_))
            (std/srfi/srfi-135/binary#textual->utf16le__textual->utf16le
             _text97765_
             _start97763_
             _n97767_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->utf16le
             _txt97762_
             _start97763_)))))
  (define std/srfi/srfi-135/binary#textual->utf16le__2
    (lambda (_txt97771_ _start97772_ _end97773_)
      (let* ((_text97775_
              (if (string? _txt97771_)
                  (std/srfi/srfi-135/kernel8#%string->text _txt97771_)
                  (if (##structure-instance-of?
                       _txt97771_
                       'std/srfi/srfi-135/kernel8#text-rtd)
                      _txt97771_
                      (std/srfi/srfi-135/kernel8#complain
                       std/srfi/srfi-135/binary#textual->utf16le__textual->utf16le
                       _txt97771_
                       _start97772_
                       _end97773_))))
             (_n97777_ (std/srfi/srfi-135/kernel8#%text-length _text97775_)))
        (if (and (std/srfi/srfi-135/etc#exact-integer? _start97772_)
                 (std/srfi/srfi-135/etc#exact-integer? _end97773_)
                 (<= '0 _start97772_ _end97773_ _n97777_))
            (std/srfi/srfi-135/binary#textual->utf16le__textual->utf16le
             _text97775_
             _start97772_
             _end97773_)
            (std/srfi/srfi-135/kernel8#complain
             'textual->utf16le
             _txt97771_
             _start97772_
             _end97773_)))))
  (define std/srfi/srfi-135/binary#textual->utf16le
    (lambda _g97873_
      (let ((_g97872_ (length _g97873_)))
        (cond ((##fx= _g97872_ 1)
               (apply std/srfi/srfi-135/binary#textual->utf16le__0 _g97873_))
              ((##fx= _g97872_ 2)
               (apply std/srfi/srfi-135/binary#textual->utf16le__1 _g97873_))
              ((##fx= _g97872_ 3)
               (apply std/srfi/srfi-135/binary#textual->utf16le__2 _g97873_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/binary#textual->utf16le
                _g97873_))))))
  (define std/srfi/srfi-135/binary#%textual->utf16
    (lambda (_txt97699_ _start97700_ _end97701_ _endianness97702_)
      (let* ((_n97707_
              (std/srfi/srfi-135/text#textual-fold__2
               (lambda (_c97704_ _n97705_)
                 (if (< (char->integer _c97704_) '65536)
                     (+ _n97705_ '2)
                     (+ _n97705_ '4)))
               '0
               _txt97699_
               _start97700_
               _end97701_))
             (_n97709_ (if _endianness97702_ _n97707_ (+ _n97707_ '2)))
             (_result97711_ (make-u8vector _n97709_ '0))
             (_hibits97716_
              (let ((_$e97713_ _endianness97702_))
                (if (eq? 'big _$e97713_)
                    '0
                    (if (eq? 'little _$e97713_) '1 '0))))
             (_lobits97718_ (- '1 _hibits97716_)))
        (if (not _endianness97702_)
            (begin
              (u8vector-set! _result97711_ '0 '254)
              (u8vector-set! _result97711_ '1 '255))
            '#!void)
        (let _loop97721_ ((_i97723_ _start97700_)
                          (_j97724_ (if _endianness97702_ '0 '2)))
          (if (= _i97723_ _end97701_)
              _result97711_
              (let* ((_c97726_
                      (std/srfi/srfi-135/kernel8#text-ref _txt97699_ _i97723_))
                     (_cp97728_ (char->integer _c97726_)))
                (if (< _cp97728_ '65536)
                    (begin
                      (let* ((_high97731_ (quotient _cp97728_ '256))
                             (_low97733_ (- _cp97728_ (* '256 _high97731_))))
                        (u8vector-set!
                         _result97711_
                         (+ _j97724_ _hibits97716_)
                         _high97731_)
                        (u8vector-set!
                         _result97711_
                         (+ _j97724_ _lobits97718_)
                         _low97733_))
                      (_loop97721_ (+ _i97723_ '1) (+ _j97724_ '2)))
                    (begin
                      (let* ((_k97736_ (- _cp97728_ '65536))
                             (_high-surrogate97738_
                              (+ '55296 (quotient _k97736_ '1024)))
                             (_low-surrogate97740_
                              (+ '56320 (remainder _k97736_ '1024)))
                             (_high097742_
                              (quotient _high-surrogate97738_ '256))
                             (_low097744_
                              (- _high-surrogate97738_ (* '256 _high097742_)))
                             (_high197746_
                              (quotient _low-surrogate97740_ '256))
                             (_low197748_
                              (- _low-surrogate97740_ (* '256 _high197746_))))
                        (u8vector-set!
                         _result97711_
                         (+ _j97724_ _hibits97716_)
                         _high097742_)
                        (u8vector-set!
                         _result97711_
                         (+ _j97724_ _lobits97718_)
                         _low097744_)
                        (u8vector-set!
                         _result97711_
                         (+ _j97724_ '2 _hibits97716_)
                         _high197746_)
                        (u8vector-set!
                         _result97711_
                         (+ _j97724_ '2 _lobits97718_)
                         _low197748_))
                      (_loop97721_ (+ _i97723_ '1) (+ _j97724_ '4))))))))))
  (define std/srfi/srfi-135/binary#utf8->text__0
    (lambda (_bv97690_)
      (if (u8vector? _bv97690_)
          (std/srfi/srfi-135/kernel8#%string->text
           (std/text/utf8#utf8->string__0 _bv97690_))
          (std/srfi/srfi-135/kernel8#complain 'utf8->text _bv97690_))))
  (define std/srfi/srfi-135/binary#utf8->text__1
    (lambda (_bv97692_ _start97693_)
      (if (and (u8vector? _bv97692_)
               (std/srfi/srfi-135/etc#exact-integer? _start97693_)
               (<= '0 _start97693_ (u8vector-length _bv97692_)))
          (std/srfi/srfi-135/kernel8#%string->text
           (std/text/utf8#utf8->string__1 _bv97692_ _start97693_))
          (std/srfi/srfi-135/kernel8#complain
           'utf8->text
           _bv97692_
           _start97693_))))
  (define std/srfi/srfi-135/binary#utf8->text__2
    (lambda (_bv97695_ _start97696_ _end97697_)
      (if (and (u8vector? _bv97695_)
               (std/srfi/srfi-135/etc#exact-integer? _start97696_)
               (std/srfi/srfi-135/etc#exact-integer? _end97697_)
               (<= '0 _start97696_ _end97697_ (u8vector-length _bv97695_)))
          (std/srfi/srfi-135/kernel8#%string->text
           (std/text/utf8#utf8->string__% _bv97695_ _start97696_ _end97697_))
          (std/srfi/srfi-135/kernel8#complain
           'utf8->text
           _bv97695_
           _start97696_
           _end97697_))))
  (define std/srfi/srfi-135/binary#utf8->text
    (lambda _g97875_
      (let ((_g97874_ (length _g97875_)))
        (cond ((##fx= _g97874_ 1)
               (apply std/srfi/srfi-135/binary#utf8->text__0 _g97875_))
              ((##fx= _g97874_ 2)
               (apply std/srfi/srfi-135/binary#utf8->text__1 _g97875_))
              ((##fx= _g97874_ 3)
               (apply std/srfi/srfi-135/binary#utf8->text__2 _g97875_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/binary#utf8->text
                _g97875_))))))
  (define std/srfi/srfi-135/binary#utf16->text__0
    (lambda (_bv97681_)
      (if (u8vector? _bv97681_)
          (std/srfi/srfi-135/binary#%utf16->text
           _bv97681_
           '0
           (u8vector-length _bv97681_)
           '#f)
          (std/srfi/srfi-135/kernel8#complain 'utf16->text _bv97681_))))
  (define std/srfi/srfi-135/binary#utf16->text__1
    (lambda (_bv97683_ _start97684_)
      (if (and (u8vector? _bv97683_)
               (std/srfi/srfi-135/etc#exact-integer? _start97684_)
               (<= '0 _start97684_ (u8vector-length _bv97683_)))
          (std/srfi/srfi-135/binary#%utf16->text
           _bv97683_
           _start97684_
           (u8vector-length _bv97683_)
           '#f)
          (std/srfi/srfi-135/kernel8#complain
           'utf16->text
           _bv97683_
           _start97684_))))
  (define std/srfi/srfi-135/binary#utf16->text__2
    (lambda (_bv97686_ _start97687_ _end97688_)
      (if (and (u8vector? _bv97686_)
               (std/srfi/srfi-135/etc#exact-integer? _start97687_)
               (std/srfi/srfi-135/etc#exact-integer? _end97688_)
               (<= '0 _start97687_ _end97688_ (u8vector-length _bv97686_)))
          (std/srfi/srfi-135/binary#%utf16->text
           _bv97686_
           _start97687_
           _end97688_
           '#f)
          (std/srfi/srfi-135/kernel8#complain
           'utf16->text
           _bv97686_
           _start97687_
           _end97688_))))
  (define std/srfi/srfi-135/binary#utf16->text
    (lambda _g97877_
      (let ((_g97876_ (length _g97877_)))
        (cond ((##fx= _g97876_ 1)
               (apply std/srfi/srfi-135/binary#utf16->text__0 _g97877_))
              ((##fx= _g97876_ 2)
               (apply std/srfi/srfi-135/binary#utf16->text__1 _g97877_))
              ((##fx= _g97876_ 3)
               (apply std/srfi/srfi-135/binary#utf16->text__2 _g97877_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/binary#utf16->text
                _g97877_))))))
  (define std/srfi/srfi-135/binary#utf16be->text__0
    (lambda (_bv97672_)
      (if (u8vector? _bv97672_)
          (std/srfi/srfi-135/binary#%utf16->text
           _bv97672_
           '0
           (u8vector-length _bv97672_)
           'big)
          (std/srfi/srfi-135/kernel8#complain 'utf16be->text _bv97672_))))
  (define std/srfi/srfi-135/binary#utf16be->text__1
    (lambda (_bv97674_ _start97675_)
      (if (and (u8vector? _bv97674_)
               (std/srfi/srfi-135/etc#exact-integer? _start97675_)
               (<= '0 _start97675_ (u8vector-length _bv97674_)))
          (std/srfi/srfi-135/binary#%utf16->text
           _bv97674_
           _start97675_
           (u8vector-length _bv97674_)
           'big)
          (std/srfi/srfi-135/kernel8#complain
           'utf16be->text
           _bv97674_
           _start97675_))))
  (define std/srfi/srfi-135/binary#utf16be->text__2
    (lambda (_bv97677_ _start97678_ _end97679_)
      (if (and (u8vector? _bv97677_)
               (std/srfi/srfi-135/etc#exact-integer? _start97678_)
               (std/srfi/srfi-135/etc#exact-integer? _end97679_)
               (<= '0 _start97678_ _end97679_ (u8vector-length _bv97677_)))
          (std/srfi/srfi-135/binary#%utf16->text
           _bv97677_
           _start97678_
           _end97679_
           'big)
          (std/srfi/srfi-135/kernel8#complain
           'utf16be->text
           _bv97677_
           _start97678_
           _end97679_))))
  (define std/srfi/srfi-135/binary#utf16be->text
    (lambda _g97879_
      (let ((_g97878_ (length _g97879_)))
        (cond ((##fx= _g97878_ 1)
               (apply std/srfi/srfi-135/binary#utf16be->text__0 _g97879_))
              ((##fx= _g97878_ 2)
               (apply std/srfi/srfi-135/binary#utf16be->text__1 _g97879_))
              ((##fx= _g97878_ 3)
               (apply std/srfi/srfi-135/binary#utf16be->text__2 _g97879_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/binary#utf16be->text
                _g97879_))))))
  (define std/srfi/srfi-135/binary#utf16le->text__0
    (lambda (_bv97663_)
      (if (u8vector? _bv97663_)
          (std/srfi/srfi-135/binary#%utf16->text
           _bv97663_
           '0
           (u8vector-length _bv97663_)
           'little)
          (std/srfi/srfi-135/kernel8#complain 'utf16le->text _bv97663_))))
  (define std/srfi/srfi-135/binary#utf16le->text__1
    (lambda (_bv97665_ _start97666_)
      (if (and (u8vector? _bv97665_)
               (std/srfi/srfi-135/etc#exact-integer? _start97666_)
               (even? _start97666_)
               (<= '0 _start97666_ (u8vector-length _bv97665_)))
          (std/srfi/srfi-135/binary#%utf16->text
           _bv97665_
           _start97666_
           (u8vector-length _bv97665_)
           'little)
          (std/srfi/srfi-135/kernel8#complain
           'utf16le->text
           _bv97665_
           _start97666_))))
  (define std/srfi/srfi-135/binary#utf16le->text__2
    (lambda (_bv97668_ _start97669_ _end97670_)
      (if (and (u8vector? _bv97668_)
               (std/srfi/srfi-135/etc#exact-integer? _start97669_)
               (std/srfi/srfi-135/etc#exact-integer? _end97670_)
               (even? _start97669_)
               (even? _end97670_)
               (<= '0 _start97669_ _end97670_ (u8vector-length _bv97668_)))
          (std/srfi/srfi-135/binary#%utf16->text
           _bv97668_
           _start97669_
           _end97670_
           'little)
          (std/srfi/srfi-135/kernel8#complain
           'utf16le->text
           _bv97668_
           _start97669_
           _end97670_))))
  (define std/srfi/srfi-135/binary#utf16le->text
    (lambda _g97881_
      (let ((_g97880_ (length _g97881_)))
        (cond ((##fx= _g97880_ 1)
               (apply std/srfi/srfi-135/binary#utf16le->text__0 _g97881_))
              ((##fx= _g97880_ 2)
               (apply std/srfi/srfi-135/binary#utf16le->text__1 _g97881_))
              ((##fx= _g97880_ 3)
               (apply std/srfi/srfi-135/binary#utf16le->text__2 _g97881_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/srfi-135/binary#utf16le->text
                _g97881_))))))
  (define std/srfi/srfi-135/binary#%utf16->text
    (lambda (_bv97611_ _start97612_ _end97613_ _endianness97614_)
      (let* ((_bom97619_
              (if (not _endianness97614_)
                  (if (< _start97612_ _end97613_)
                      (let ((_byte097616_
                             (u8vector-ref _bv97611_ _start97612_))
                            (_byte197617_
                             (u8vector-ref _bv97611_ (+ _start97612_ '1))))
                        (if (and (= _byte097616_ '254) (= _byte197617_ '255))
                            'big
                            (if (and (= _byte197617_ '254)
                                     (= _byte097616_ '255))
                                'little
                                '#f)))
                      '#f)
                  '#f))
             (_start97621_ (if _bom97619_ (+ _start97612_ '2) _start97612_))
             (_endianness97629_
              (let ((_$e97623_ _endianness97614_))
                (if _$e97623_
                    _$e97623_
                    (let ((_$e97626_ _bom97619_))
                      (if _$e97626_ _$e97626_ 'big)))))
             (_hibits97631_ (if (eq? _endianness97629_ 'big) '0 '1))
             (_lobits97633_ (- '1 _hibits97631_)))
        (std/srfi/srfi-135/text#text-unfold__0
         (lambda (_i97636_) (>= _i97636_ _end97613_))
         (lambda (_i97638_)
           (let* ((_high97640_
                   (u8vector-ref _bv97611_ (+ _i97638_ _hibits97631_)))
                  (_low97642_
                   (u8vector-ref _bv97611_ (+ _i97638_ _lobits97633_)))
                  (_cp97644_
                   (if (= _high97640_ '0)
                       _low97642_
                       (+ (* '256 _high97640_) _low97642_))))
             (if (< _cp97644_ '55296)
                 (integer->char _cp97644_)
                 (if (and (< _cp97644_ '56320) (< (+ _i97638_ '2) _end97613_))
                     (let* ((_i97647_ (+ _i97638_ '2))
                            (_high97649_
                             (u8vector-ref
                              _bv97611_
                              (+ _i97647_ _hibits97631_)))
                            (_low97651_
                             (u8vector-ref
                              _bv97611_
                              (+ _i97647_ _lobits97633_)))
                            (_cp297653_
                             (if (= _high97649_ '0)
                                 _low97651_
                                 (+ (* '256 _high97649_) _low97651_))))
                       (if (<= '56320 _cp297653_ '57343)
                           (integer->char
                            (+ '65536
                               (* '1024 (- _cp97644_ '55296))
                               (- _cp297653_ '56320)))
                           (std/srfi/srfi-135/binary#%illegal-utf16
                            _bv97611_
                            (- _i97647_ '2)
                            _cp97644_
                            _cp297653_)))
                     (if (< _cp97644_ '65536)
                         (integer->char _cp97644_)
                         (std/srfi/srfi-135/binary#%illegal-utf16
                          _bv97611_
                          _i97638_
                          _cp97644_))))))
         (lambda (_i97656_)
           (let ((_cp97658_
                  (+ (* '256
                        (u8vector-ref _bv97611_ (+ _i97656_ _hibits97631_)))
                     (u8vector-ref _bv97611_ (+ _i97656_ _lobits97633_)))))
             (if (or (< _cp97658_ '55296) (<= '57344 _cp97658_ '65535))
                 (+ _i97656_ '2)
                 (+ _i97656_ '4))))
         _start97621_))))
  (define std/srfi/srfi-135/binary#%illegal-utf16
    (lambda (_bv97606_ _i97607_ _cp97608_ . _rest97609_)
      (if (null? _rest97609_)
          (error '"illegal UTF-16: " _bv97606_ _i97607_ _cp97608_)
          (error '"illegal UTF-16: "
                 _bv97606_
                 _i97607_
                 _cp97608_
                 (car _rest97609_))))))
