GOOF----LE-8-2.0&� ]t 4 h� ] g guile� � g define-module*� � � g srfi� g srfi-43� � g filenameS�
f srfi/srfi-43.scm� g importsS� g srfi-1�
�
� g srfi-8� � � � g exportsS� g
vector-empty?� g vector=� g
vector-unfold� g vector-unfold-right� g vector-reverse-copy� g
vector-append� g vector-concatenate� g vector-fold� g vector-fold-right� g
vector-map� g vector-map!� g vector-for-each� g vector-count� !g vector-index� "g vector-index-right� #g vector-skip� $g vector-skip-right� %g vector-binary-search� &g
vector-any� 'g vector-every� (g vector-swap!� )g vector-reverse!� *g vector-copy!� +g vector-reverse-copy!� ,g reverse-vector->list� -g reverse-list->vector� . !"#$%&'()*+,- � /g
re-exportsS� 0g make-vector� 1g vector� 2g vector?� 3g
vector-ref� 4g vector-set!� 5g
vector-length� 6012345 � 7g replacementsS� 8g vector-copy� 9g vector-fill!� :g list->vector� ;g vector->list� <89:; � =g set-current-module� >= � ?= � @g cond-expand-provide� Ag current-module� B � Cg error� Dg
string-append� Eg symbol->string� Ff : � Gg
error-from� Hg make-syntax-transformer� IH � JH � Kg assert-nonneg-exact-integer� Lg macro� Mg $sc-dispatch� NM � OM � Pg any� QPPP � Rg
syntax-object� Sg unless� Tg top� UT � Vg ribcage� Wg dummy� Xg k� Yg who� ZWXY � [g m-46961e513c-7� \[T � ]\UU � ^f l-46961e513c-c� _f l-46961e513c-d� `f l-46961e513c-e� a^_` � bVZ]a � cV � dg x� ed � f\ � gf l-46961e513c-9� hg � iVefh � jUbci � kg hygiene� lk � mRSjl � ng and� oRnjl � pg exact-integer?� qRpjl � rg not� sRrjl � tg negative?� uRtjl � vRGjl � wf (expected non-negative exact integer, got� xRwjl � yg syntax-violation� zy � {y � |f -source expression failed to match any pattern� }g assert-procedure� ~g f� W~Y � �g m-46961e513c-13� ��T � ��UU � �f l-46961e513c-18� �f l-46961e513c-19� �f l-46961e513c-1a� ���� � �V�� � �� � �f l-46961e513c-15� �� � �Ve�� � �U�c� � �RS�l � �g
procedure?� �R��l � �RG�l � �f expected procedure, got� �R��l � �g
assert-vector� �g v� �W�Y � �g m-46961e513c-1f� ��T � ��UU � �f l-46961e513c-24� �f l-46961e513c-25� �f l-46961e513c-26� ���� � �V��� � �� � �f l-46961e513c-21� �� � �Ve�� � �U�c� � �RS�l � �R2�l � �RG�l � �f expected vector, got� �R��l � �g assert-valid-index� �PPPP � �g i� �g len� �W��Y � �g m-46961e513c-2b� ��T � ��UUU � �f l-46961e513c-30� �f l-46961e513c-31� �f l-46961e513c-32� �f l-46961e513c-33� ����� � �V��� � �� � �f l-46961e513c-2d� �� � �Ve�� � �U�c� � �RS�l � �Rn�l � �Rp�l � �g <=� �R��l � �R
�l � �RG�l � �f
invalid index� �R��l � �g assert-valid-start� �g start� �W��Y � �g m-46961e513c-39� ��T � ��UUU � �f l-46961e513c-3e� �f l-46961e513c-3f� �f l-46961e513c-40� �f l-46961e513c-41� ����� � �V��� � �� � �f l-46961e513c-3b� �� � �Ve�� � �U�c� � �RS�l � �Rn�l � �Rp�l � �R��l � �R
�l � �RG�l � �f invalid start index� �R��l � �g assert-valid-range� �PPPPP � �g end� �W���Y � �g m-46961e513c-47� ��T � ��UUUU � �f l-46961e513c-4c� �f l-46961e513c-4d� �f l-46961e513c-4e� �f l-46961e513c-4f� �f l-46961e513c-50� ������ � �V��� � �� � �f l-46961e513c-49� �� � �Ve�� � �U�c� � �RS�l � �Rn�l � �Rp�l � �R��l � �R
�l � �RG�l � �f invalid index range� �R��l � �g assert-vectors� �g let� �g vs� �W�Y � �g m-46961e513c-57� ��T � ��UU � �f l-46961e513c-5c� f l-46961e513c-5d�f l-46961e513c-5e�� �V�� �� �f l-46961e513c-59� �Ve �Uc � R�l �
g loop�R
l �RSl �
g null?�R
l �R�l �g car�Rl �g cdr�Rl �g min�g
min-length�g reverse!�g vectors-ref�g apply�8 �8 �g guile-vector-copy�g vector-move-left!�g %vector-concatenate�9 �9 � g %vector-reverse!�!g define-vector-copier!�"g define�#g copy!�$g docstring�%g
inner-proc�&W#$% �'g m-46961e513c-5ea�('T �)(UUU �*f l-46961e513c-5ef�+f l-46961e513c-5f0�,f l-46961e513c-5f1�-f l-46961e513c-5f2�.*+,- �/V&). �0( �1f l-46961e513c-5ec�21 �3Ve02 �4U/c3 �5R"4l �6R�4l �7g %copy!�8R74l �9g case-lambda�:R94l �;g target�<R;4l �=g tstart�>R=4l �?g source�@R?4l �A<>@ �BR�4l �Cg quote�DRC4l �Eg tlen�FRE4l �GR54l �HG< �IFH �Jg slen�KRJ4l �LG@ �MKL �NIM �OR�4l �PRS4l �Qg >=�RRQ4l �Sg +�TRS4l �UT>K �VRFU �WRG4l �Xf would write past end of target�YRX4l �ZY �[R
4l �\8<>@[K �]\ �^g sstart�_R^4l �`<>@_ �ag -�bRa4l �cbK_ �dT>c �eRFd �f8<>@_K �gf �hg send�iRh4l �j<>@_i �kR�4l �lbi_ �mT>l �nRFm �o8<>@_i �po �qg vector-move-right!�rg length�sg drop�C 5 hh� l ]4
./67<5 4? > "