(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/srfi/160/cvector#c64vector::t
    (make-struct-type
     'std/srfi/160/cvector#c64vector::t
     '#f
     '1
     'c64vector
     '((equal: e) (final: . #t))
     ':init!
     '(e)))
  (define std/srfi/160/cvector#c64vector?
    (make-struct-predicate std/srfi/160/cvector#c64vector::t))
  (define std/srfi/160/cvector#make-c64vector
    (lambda _$args1244_
      (apply make-struct-instance
             std/srfi/160/cvector#c64vector::t
             _$args1244_)))
  (define std/srfi/160/cvector#c64vector-e
    (make-struct-field-accessor std/srfi/160/cvector#c64vector::t '0))
  (define std/srfi/160/cvector#c64vector-e-set!
    (make-struct-field-mutator std/srfi/160/cvector#c64vector::t '0))
  (define std/srfi/160/cvector#&c64vector-e
    (make-struct-field-unchecked-accessor
     std/srfi/160/cvector#c64vector::t
     '0))
  (define std/srfi/160/cvector#&c64vector-e-set!
    (make-struct-field-unchecked-mutator std/srfi/160/cvector#c64vector::t '0))
  (define std/srfi/160/cvector#c128vector::t
    (make-struct-type
     'std/srfi/160/cvector#c128vector::t
     '#f
     '1
     'c128vector
     '((equal: e) (final: . #t))
     'init!
     '(e)))
  (define std/srfi/160/cvector#c128vector?
    (make-struct-predicate std/srfi/160/cvector#c128vector::t))
  (define std/srfi/160/cvector#make-c128vector
    (lambda _$args1241_
      (apply make-struct-instance
             std/srfi/160/cvector#c128vector::t
             _$args1241_)))
  (define std/srfi/160/cvector#c128vector-e
    (make-struct-field-accessor std/srfi/160/cvector#c128vector::t '0))
  (define std/srfi/160/cvector#c128vector-e-set!
    (make-struct-field-mutator std/srfi/160/cvector#c128vector::t '0))
  (define std/srfi/160/cvector#&c128vector-e
    (make-struct-field-unchecked-accessor
     std/srfi/160/cvector#c128vector::t
     '0))
  (define std/srfi/160/cvector#&c128vector-e-set!
    (make-struct-field-unchecked-mutator
     std/srfi/160/cvector#c128vector::t
     '0))
  (define std/srfi/160/cvector#c64vector:::init!__%
    (lambda (_self1223_ _size1224_ _fill1225_)
      (let ((_e1227_ (make-f32vector (fx* '2 _size1224_))))
        (if (let ((__tmp4845
                   (let () (declare (not safe)) (##vector-length _self1223_))))
              (declare (not safe))
              (##fx< '1 __tmp4845))
            (let () (declare (not safe)) (##vector-set! _self1223_ '1 _e1227_))
            (error '"struct-instance-init!: too many arguments for struct"
                   _self1223_))
        (if _fill1225_
            (begin
              (if (complex? _fill1225_)
                  '#!void
                  (error '"Bad argument; expected complex number" _fill1225_))
              (std/srfi/160/cvector#cvector-fill!
               _e1227_
               _fill1225_
               ##f32vector-set!
               _size1224_))
            '#!void))))
  (define std/srfi/160/cvector#c64vector:::init!__0
    (lambda (_self1232_ _size1233_)
      (let ((_fill1235_ '#f))
        (std/srfi/160/cvector#c64vector:::init!__%
         _self1232_
         _size1233_
         _fill1235_))))
  (define std/srfi/160/cvector#c64vector:::init!
    (lambda _g4847_
      (let ((_g4846_ (let () (declare (not safe)) (##length _g4847_))))
        (cond ((let () (declare (not safe)) (##fx= _g4846_ 2))
               (apply std/srfi/160/cvector#c64vector:::init!__0 _g4847_))
              ((let () (declare (not safe)) (##fx= _g4846_ 3))
               (apply std/srfi/160/cvector#c64vector:::init!__% _g4847_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/cvector#c64vector:::init!
                _g4847_))))))
  (bind-method!
   std/srfi/160/cvector#c64vector::t
   ':init!
   std/srfi/160/cvector#c64vector:::init!
   '#f)
  (define std/srfi/160/cvector#c128vector:::init!__%
    (lambda (_self1082_ _size1083_ _fill1084_)
      (let ((_e1086_ (make-f64vector (fx* '2 _size1083_))))
        (if (let ((__tmp4848
                   (let () (declare (not safe)) (##vector-length _self1082_))))
              (declare (not safe))
              (##fx< '1 __tmp4848))
            (let () (declare (not safe)) (##vector-set! _self1082_ '1 _e1086_))
            (error '"struct-instance-init!: too many arguments for struct"
                   _self1082_))
        (if _fill1084_
            (begin
              (if (complex? _fill1084_)
                  '#!void
                  (error '"Bad argument; expected complex number" _fill1084_))
              (std/srfi/160/cvector#cvector-fill!
               _e1086_
               _fill1084_
               ##f64vector-set!
               _size1083_))
            '#!void))))
  (define std/srfi/160/cvector#c128vector:::init!__0
    (lambda (_self1091_ _size1092_)
      (let ((_fill1094_ '#f))
        (std/srfi/160/cvector#c128vector:::init!__%
         _self1091_
         _size1092_
         _fill1094_))))
  (define std/srfi/160/cvector#c128vector:::init!
    (lambda _g4850_
      (let ((_g4849_ (let () (declare (not safe)) (##length _g4850_))))
        (cond ((let () (declare (not safe)) (##fx= _g4849_ 2))
               (apply std/srfi/160/cvector#c128vector:::init!__0 _g4850_))
              ((let () (declare (not safe)) (##fx= _g4849_ 3))
               (apply std/srfi/160/cvector#c128vector:::init!__% _g4850_))
              (else
               (##raise-wrong-number-of-arguments-exception
                std/srfi/160/cvector#c128vector:::init!
                _g4850_))))))
  (bind-method!
   std/srfi/160/cvector#c128vector::t
   ':init!
   std/srfi/160/cvector#c128vector:::init!
   '#f)
  (define std/srfi/160/cvector#cvector-fill!
    (lambda (_v943_ _fill944_ _set-e945_ _size946_)
      (declare (not safe))
      (let ((_real949_ (inexact (real-part _fill944_)))
            (_imag950_ (inexact (imag-part _fill944_))))
        (let _$loop952_ ((_i955_ '0))
          (if (fx= _i955_ _size946_)
              '#!void
              (begin
                (let ((_j957_ (fx* _i955_ '2)))
                  (_set-e945_ _v943_ _j957_ _real949_)
                  (_set-e945_ _v943_ (fx+ _j957_ '1) _imag950_))
                (_$loop952_ (fx+ _i955_ '1))))))))
  (define std/srfi/160/cvector#make-c64vector*
    (lambda _args941_ (std/srfi/160/cvector#list->c64vector _args941_)))
  (define std/srfi/160/cvector#make-c128vector*
    (lambda _args939_ (std/srfi/160/cvector#list->c128vector _args939_)))
  (define std/srfi/160/cvector#list->c64vector
    (lambda (_lst935_)
      (let ((_v937_ (let ((__obj4844
                           (make-object std/srfi/160/cvector#c64vector::t '1)))
                      (std/srfi/160/cvector#c64vector:::init!__0
                       __obj4844
                       (length _lst935_))
                      __obj4844)))
        (std/srfi/160/cvector#cvector-init!
         (let ()
           (declare (not safe))
           (##unchecked-structure-ref
            _v937_
            '1
            std/srfi/160/cvector#c64vector::t
            '#f))
         _lst935_
         ##f32vector-set!)
        _v937_)))
  (define std/srfi/160/cvector#list->c128vector
    (lambda (_lst931_)
      (let ((_v933_ (make-struct-instance
                     std/srfi/160/cvector#c128vector::t
                     (length _lst931_))))
        (std/srfi/160/cvector#cvector-init!
         (let ()
           (declare (not safe))
           (##unchecked-structure-ref
            _v933_
            '1
            std/srfi/160/cvector#c128vector::t
            '#f))
         _lst931_
         ##f64vector-set!)
        _v933_)))
  (define std/srfi/160/cvector#cvector-init!
    (lambda (_v885_ _lst886_ _set-e887_)
      (declare (not safe))
      (let _lp890_ ((_rest892_ _lst886_) (_i893_ '0))
        (let* ((_rest894902_ _rest892_)
               (_else896910_ (lambda () '#!void))
               (_K898919_
                (lambda (_rest913_ _x914_)
                  (if (complex? _x914_)
                      '#!void
                      (error '"Expected complex number" _x914_))
                  (let ((_real916_ (inexact (real-part _x914_)))
                        (_imag917_ (inexact (imag-part _x914_))))
                    (_set-e887_ _v885_ _i893_ _real916_)
                    (_set-e887_ _v885_ (fx+ _i893_ '1) _imag917_)
                    (_lp890_ _rest913_ (fx+ _i893_ '2))))))
          (if (##pair? _rest894902_)
              (let ((_hd899922_ (##car _rest894902_))
                    (_tl900924_ (##cdr _rest894902_)))
                (let* ((_x927_ _hd899922_) (_rest929_ _tl900924_))
                  (_K898919_ _rest929_ _x927_)))
              '#!void)))))
  (define std/srfi/160/cvector#c64vector-ref
    (lambda (_v853_ _i854_)
      (let* ((_v855861_ _v853_)
             (_E857865_ (lambda () (error '"No clause matching" _v855861_)))
             (_K858877_
              (lambda (_e868_)
                (let* ((_j870_ (fx* _i854_ '2))
                       (_real872_ (f32vector-ref _e868_ _j870_))
                       (_imag874_ (f32vector-ref _e868_ (fx+ _j870_ '1))))
                  (let ()
                    (declare (not safe))
                    (##cpxnum-make _real872_ _imag874_))))))
        (if (let ()
              (declare (not safe))
              (##structure-direct-instance-of?
               _v855861_
               'std/srfi/160/cvector#c64vector::t))
            (let* ((_e859880_
                    (let () (declare (not safe)) (##vector-ref _v855861_ '1)))
                   (_e883_ _e859880_))
              (_K858877_ _e883_))
            (_E857865_)))))
  (define std/srfi/160/cvector#c64vector-set!
    (lambda (_v820_ _i821_ _x822_)
      (let* ((_v823829_ _v820_)
             (_E825833_ (lambda () (error '"No clause matching" _v823829_)))
             (_K826845_
              (lambda (_e836_)
                (let* ((_j838_ (fx* _i821_ '2))
                       (_real840_ (inexact (real-part _x822_)))
                       (_imag842_ (inexact (imag-part _x822_))))
                  (f32vector-set! _e836_ _j838_ _real840_)
                  (f32vector-set! _e836_ (fx+ _j838_ '1) _imag842_)))))
        (if (let ()
              (declare (not safe))
              (##structure-direct-instance-of?
               _v823829_
               'std/srfi/160/cvector#c64vector::t))
            (let* ((_e827848_
                    (let () (declare (not safe)) (##vector-ref _v823829_ '1)))
                   (_e851_ _e827848_))
              (_K826845_ _e851_))
            (_E825833_)))))
  (define std/srfi/160/cvector#c128vector-ref
    (lambda (_v788_ _i789_)
      (let* ((_v790796_ _v788_)
             (_E792800_ (lambda () (error '"No clause matching" _v790796_)))
             (_K793812_
              (lambda (_e803_)
                (let* ((_j805_ (fx* _i789_ '2))
                       (_real807_ (f64vector-ref _e803_ _j805_))
                       (_imag809_ (f64vector-ref _e803_ (fx+ _j805_ '1))))
                  (let ()
                    (declare (not safe))
                    (##cpxnum-make _real807_ _imag809_))))))
        (if (let ()
              (declare (not safe))
              (##structure-direct-instance-of?
               _v790796_
               'std/srfi/160/cvector#c128vector::t))
            (let* ((_e794815_
                    (let () (declare (not safe)) (##vector-ref _v790796_ '1)))
                   (_e818_ _e794815_))
              (_K793812_ _e818_))
            (_E792800_)))))
  (define std/srfi/160/cvector#c128vector-set!
    (lambda (_v755_ _i756_ _x757_)
      (let* ((_v758764_ _v755_)
             (_E760768_ (lambda () (error '"No clause matching" _v758764_)))
             (_K761780_
              (lambda (_e771_)
                (let* ((_j773_ (fx* _i756_ '2))
                       (_real775_ (inexact (real-part _x757_)))
                       (_imag777_ (inexact (imag-part _x757_))))
                  (f64vector-set! _e771_ _j773_ _real775_)
                  (f64vector-set! _e771_ (fx+ _j773_ '1) _imag777_)))))
        (if (let ()
              (declare (not safe))
              (##structure-direct-instance-of?
               _v758764_
               'std/srfi/160/cvector#c128vector::t))
            (let* ((_e762783_
                    (let () (declare (not safe)) (##vector-ref _v758764_ '1)))
                   (_e786_ _e762783_))
              (_K761780_ _e786_))
            (_E760768_)))))
  (define std/srfi/160/cvector#c64vector-length
    (lambda (_v731_)
      (let* ((_v732738_ _v731_)
             (_E734742_ (lambda () (error '"No clause matching" _v732738_)))
             (_K735747_
              (lambda (_e745_)
                (let ((__tmp4851
                       (let ()
                         (declare (not safe))
                         (##f32vector-length _e745_))))
                  (declare (not safe))
                  (##fxquotient __tmp4851 '2)))))
        (if (let ()
              (declare (not safe))
              (##structure-direct-instance-of?
               _v732738_
               'std/srfi/160/cvector#c64vector::t))
            (let* ((_e736750_
                    (let () (declare (not safe)) (##vector-ref _v732738_ '1)))
                   (_e753_ _e736750_))
              (_K735747_ _e753_))
            (_E734742_)))))
  (define std/srfi/160/cvector#c128vector-length
    (lambda (_v707_)
      (let* ((_v708714_ _v707_)
             (_E710718_ (lambda () (error '"No clause matching" _v708714_)))
             (_K711723_
              (lambda (_e721_)
                (let ((__tmp4852
                       (let ()
                         (declare (not safe))
                         (##f64vector-length _e721_))))
                  (declare (not safe))
                  (##fxquotient __tmp4852 '2)))))
        (if (let ()
              (declare (not safe))
              (##structure-direct-instance-of?
               _v708714_
               'std/srfi/160/cvector#c128vector::t))
            (let* ((_e712726_
                    (let () (declare (not safe)) (##vector-ref _v708714_ '1)))
                   (_e729_ _e712726_))
              (_K711723_ _e729_))
            (_E710718_)))))
  (define std/srfi/160/cvector#c64vector->list
    (lambda (_v683_)
      (let* ((_v684690_ _v683_)
             (_E686694_ (lambda () (error '"No clause matching" _v684690_)))
             (_K687699_
              (lambda (_e697_)
                (std/srfi/160/cvector#cvector->list
                 _e697_
                 ##f32vector-ref
                 ##f32vector-length))))
        (if (let ()
              (declare (not safe))
              (##structure-direct-instance-of?
               _v684690_
               'std/srfi/160/cvector#c64vector::t))
            (let* ((_e688702_
                    (let () (declare (not safe)) (##vector-ref _v684690_ '1)))
                   (_e705_ _e688702_))
              (_K687699_ _e705_))
            (_E686694_)))))
  (define std/srfi/160/cvector#c128vector->list
    (lambda (_v659_)
      (let* ((_v660666_ _v659_)
             (_E662670_ (lambda () (error '"No clause matching" _v660666_)))
             (_K663675_
              (lambda (_e673_)
                (std/srfi/160/cvector#cvector->list
                 _e673_
                 ##f64vector-ref
                 ##f64vector-length))))
        (if (let ()
              (declare (not safe))
              (##structure-direct-instance-of?
               _v660666_
               'std/srfi/160/cvector#c128vector::t))
            (let* ((_e664678_
                    (let () (declare (not safe)) (##vector-ref _v660666_ '1)))
                   (_e681_ _e664678_))
              (_K663675_ _e681_))
            (_E662670_)))))
  (define std/srfi/160/cvector#cvector->list
    (lambda (_v645_ _ref-e646_ _length-e647_)
      (declare (not safe))
      (letrec* ((_end649_ (_length-e647_ _v645_)))
        (let _lp651_ ((_i653_ '0) (_r654_ '()))
          (if (fx< _i653_ _end649_)
              (let ((_real656_ (_ref-e646_ _v645_ _i653_))
                    (_imag657_ (_ref-e646_ _v645_ (fx+ _i653_ '1))))
                (_lp651_ (fx+ _i653_ '2)
                         (cons (##cpxnum-make _real656_ _imag657_) _r654_)))
              (reverse _r654_))))))
  (define std/srfi/160/cvector#c64vector:::write
    (lambda (_self640_ _port641_)
      (let ((_lst643_ (std/srfi/160/cvector#c64vector->list _self640_)))
        (write '"#c64" _port641_)
        (write _lst643_ _port641_))))
  (bind-method!
   std/srfi/160/cvector#c64vector::t
   ':write
   std/srfi/160/cvector#c64vector:::write
   '#f)
  (define std/srfi/160/cvector#c128vector:::write
    (lambda (_self513_ _port514_)
      (let ((_lst516_ (std/srfi/160/cvector#c128vector->list _self513_)))
        (write '"#c128" _port514_)
        (write _lst516_ _port514_))))
  (bind-method!
   std/srfi/160/cvector#c128vector::t
   ':write
   std/srfi/160/cvector#c128vector:::write
   '#f))
