/
/
usr
/
lib64
/
guile
/
2.0
/
ccache
/
srfi
Server: server63.web-hosting.com (198.54.116.184)
You: 216.73.216.187
PHP 7.4.33
Dir:
/usr/lib64/guile/2.0/ccache/srfi
Edit:
/usr/lib64/guile/2.0/ccache/srfi/srfi-43.go
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? > " G 4@i4Ai5 B> " G CDEF h � - 1 3 44 55@ � g who g msg g args g filenamef srfi/srfi-43.scm� + �� - �� - �� - -�� - �� , �� g nameg error-from� CGR4JKLOQmoqsuvx h0 M ] C E g dummy + g k + g who + + C{| h( � ] 4 5$ @ 6 � g x " g tmp " g filenamef srfi/srfi-43.scm� 0 �� " g macro-typeg syntax-rules�g patternsg kg who C5KR4J}LOQ���� h M ] C E g dummy g f g who C{| h( � ] 4 5$ @ 6 � g x " g tmp " g filenamef srfi/srfi-43.scm� 5 �� " g macro-typeg syntax-rules�g patternsg fg who C5}R4J�LOQ���� h M ] C E g dummy g v g who C{| h( � ] 4 5$ @ 6 � g x " g tmp " g filenamef srfi/srfi-43.scm� 9 �� " g macro-typeg syntax-rules�g patternsg vg who C5�R4J�LO�������� h0 ^ ] C V g dummy * g i * g len * g who * * C{| h( � ] 4 5$ @ 6 � g x " g tmp " g filenamef srfi/srfi-43.scm� = �� " g macro-typeg syntax-rules�g patternsg ig leng who C5�R4J�LO�������� h0 b ] C Z g dummy * g start * g len * g who * * C{| h( � ] 4 5$ @ 6 � g x " g tmp " g filenamef srfi/srfi-43.scm� B �� " g macro-typeg syntax-rules�g patternsg startg leng who C5�R4J�LO�������� h8 s ] C k g dummy 5 g start 5 g end 5 g len 5 g who 5 5 C{| h( � ] 4 5$ @ 6 � g x " g tmp " g filenamef srfi/srfi-43.scm� G �� " g macro-typeg syntax-rules�g patternsg startg endg leng who C5�R4J�LOQ h@ N ] C F g dummy : g vs : g who : : C{| h( � ] 4 5$ @ 6 � g x " g tmp " g filenamef srfi/srfi-43.scm� M �� " g macro-typeg syntax-rules�g patternsg vsg who C5�R5 h@ ]" #( C�44�55"��� �4 �5"��� � g vs < g vs ) g result ) g filenamef srfi/srfi-43.scm� U �� V �� X �� Z �� Z �� Z #�� Z 2�� Z #�� ! Z �� ) Z �� ) V �� , V �� - W �� 2 W $�� 4 W �� < V �� < g nameg min-length� CR h8 � ]" ( 6����"��� "��� � g vs 1 g i 1 g vs & g xs & g filenamef srfi/srfi-43.scm� ] �� ^ �� _ �� ` �� a �� a )�� a �� a �� & a �� & ^ �� ) ^ �� 1 ^ �� 1 g nameg vectors-ref� CR�G�wp0 h8 � ] L�$ C4L > G L � � "��� � g i 5 g seed 5 g x 5 g seed 5 g filenamef srfi/srfi-43.scm� { �� | �� | �� } �� } �� ( ~ �� + �� 5 �� 5 g nameg loop� C h@ � ] L�$ C4L > G L � � "��� � g i = g seed1 = g seed2 = g x = g seed1 = g seed2 = g filenamef srfi/srfi-43.scm� � �� � �� � �� � $�� � �� , � �� / � �� = � �� = g nameg loop� C h8 � ] L�$ C4L > GL � � "��� � g i 7 g seeds 7 g x 7 g seeds 7 g filenamef srfi/srfi-43.scm� � �� � �� � �� � �� � �� * � �� - � �� 7 � �� 7 g nameg loop� C h� s ) �3 4 5$ " 4 > " G " 4> " *G " #45$ �$ "���" " "���45" "�$ " 4 5��"��� "���C) �3 4 5$ " 4 > " G " 4> " *G " #45$ �$ "���" " "���45O Q 4 > " G C) �3 4 5$ " 4 > " G " 4> " *G " #45$ �$ "���" " "���45 O Q 4 > " G C- 1 3 4 5$ " 4 > " G " 4> " *G " #45$ �$ "���" " "���45 O Q 4 > " G C k g f � g len � g v v � g i | � g f �O g len �O g seed �O g v O g loop +L g f X� g lenX� g seed1 X� g seed2 X� g v �� g loop �� g f � g len� g seeds � g v n� g loop {� g filenamef srfi/srfi-43.scm� e �� o �� o �� o �� 3 p �� 7 p &�� 9 p �� p q �� v q �� | r �� � s �� � s �� � t �� � t �� � u �� � u �� � r �� � e �� � x �� � x �� � x �� � y �� � y &�� � y �� z �� z ��+ { ��X e ��Y � ��l � ��n � ��� � ��� � &��� � ��� � ��� � ��� � �� e �� � �� � �� � ��+ � ��/ � &��1 � ��h � ��n � ��{ � �� 0 � �O X� � g nameg vector-unfold�g documentationf �(vector-unfold f length initial-seed ...) -> vector The fundamental vector constructor. Create a vector whose length is LENGTH and iterates across each index k from 0 up to LENGTH - 1, applying F at each iteration to the current index and current seeds, in that order, to receive n + 1 values: the element to put in the kth slot of the new vector, and n new seeds for the next iteration. It is an error for the number of seeds to vary between iterations.� CR�G�wp0 h8 � ] �$ C4L > G L � � "��� � g i 4 g seed 4 g x 4 g seed 4 g filenamef srfi/srfi-43.scm� � �� � �� � �� � �� � �� ' � �� * � �� 4 � �� 4 g nameg loop� C h@ � ] �$ C4L > G L � � "��� � g i < g seed1 < g seed2 < g x < g seed1 < g seed2 < g filenamef srfi/srfi-43.scm� � �� � �� � �� � $�� � �� + � �� . � �� < � �� < g nameg loop� C h8 � ] �$ C4L > GL � � "��� � g i 6 g seeds 6 g x 6 g seeds 6 g filenamef srfi/srfi-43.scm� � �� � �� � �� � �� � �� ) � �� , � �� 6 � �� 6 g nameg loop� C h� � ) �3 4 5$ " 4 > " G " 4> " *G " #45$ �$ "���" " "���45" ! �$ " 4 5��"����"���C) �3 4 5$ " 4 > " G " 4> " *G " #45$ �$ "���" " "���45O Q 4�> " G C) �3 4 5$ " 4 > " G " 4> " *G " #45$ �$ "���" " "���45 O Q 4�> " G C- 1 3 4 5$ " 4 > " G " 4> " *G " #45$ �$ "���" " "���45 O Q 4�> " G C � g f � g len � g v v � g i | � g f �O g len �O g seed �O g v O g loop +L g f X� g lenX� g seed1 X� g seed2 X� g v �� g loop �� g f � g len � g seeds � g v m� g loop y� g filenamef srfi/srfi-43.scm� � �� � �� � �� � �� 3 � �� 7 � &�� 9 � �� p � �� v � �� | � �� � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � &�� � � �� � �� � ��+ � ��: � ��A � ��X � ��Y � ��l � ��n � ��� � ��� � &��� � ��� � ��� � ��� � ��� � ��� � �� � �� � �� � �� � ��* � ��. � &��0 � ��g � ��m � ��y � ��� � ��� � �� 8 � �O X� � g nameg vector-unfold-right�g documentationf �(vector-unfold-right f length initial-seed ...) -> vector The fundamental vector constructor. Create a vector whose length is LENGTH and iterates across each index k from LENGTH - 1 down to 0, applying F at each iteration to the current index and current seeds, in that order, to receive n + 1 values: the element to put in the kth slot of the new vector, and n new seeds for the next iteration. It is an error for the number of seeds to vary between iterations.� CRRG8�5�p0� h� � ) 3 6) �3 �$ " 4 > " G 4 5" 4> " ;G " 445$ % �$ �$ " "���" "���" "���4�54 > " G C- . , 3 # �$ " 4 > " G 4 5" 4 > " NG " G45$ 845$ % �$ �$ " "���" "���" "���" "���4�54 45 > " G C � g v g v � g start � g len @ � g result � � g v �� g start �� g end �� g fill �� g len �� g result n� g filenamef srfi/srfi-43.scm� � �� � �� � �� � �� ( � �� * � �� : � �� @ � �� G � �� K � $�� M � �� � � �� � � !�� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � �� � �� � !�� � �� � �� � ��& � ��' � ��1 � ��5 � ��9 � ��> � ��c � ��j � !��n � ��n � ��q � ��x � #��� � �� * � �� g nameg vector-copy�g documentationf �(vector-copy vec [start [end [fill]]]) -> vector Allocate a new vector whose length is END - START and fills it with elements from vec, taking elements from vec starting at index START and stopping at index END. START defaults to 0 and END defaults to the value of (vector-length VEC). If END extends beyond the length of VEC, the slots in the new vector that obviously cannot be filled by elements from VEC are filled with FILL, whose default value is unspecified.� C8R0 hP e ]#�45" %�$ " $ ����"��� �"���C ] g vec J g start J g end J g len J g result J g i ; g j ; g filenamef srfi/srfi-43.scm� � �� � �� � �� � �� � �� � �� � �� � �� , � "�� - � �� 0 � �� 3 � �� ; � �� ; � �� ? � �� G � �� J g nameg %vector-reverse-copy� C G�5�p� hx ) 23 �$ " 4 > " G L 4 56) �3 �$ " 4 > " G 4 5" 4> " ;G " 445$ % �$ �$ " "���" "���" "���L 6] �$ " 4 > " G 4 5" 4> " _G " X45$ I45$ 6 �$ &�$ �$ " "���" "���" "���" "���" "���L 6 g vec 8 g vec A � g start A � g len i � g vec �u g start �u g end �u g len �u g filenamef srfi/srfi-43.scm� � �� � �� � �� � �� 0 � #�� 8 � �� A � �� D � �� Q � �� S � �� c � �� i � �� p �� t '�� v �� � �� � � �� � �� � �� � �� � �� � �� � �� � +�� � ��u �� 8 A � �u g documentationf 1(vector-reverse-copy vec [start [end]]) -> vector Allocate a new vector whose length is END - START and fills it with elements from vec, taking elements from vec in reverse order starting at index START and stopping at index END. START defaults to 0 and END defaults to the value of (vector-length VEC).� C O R50 h� � ]1" "( " !�4�5�"��� "���45" G( " H�454 > " G ��"��� "���C � g vs � g vs ( g len ( g result-len 3 � g result < � g vs B � g pos B � g v O � g len X � g filenamef srfi/srfi-43.scm� �� �� �� !�� 1�� @�� 1�� *�� ( �� ( �� 3 �� 6 �� < �� B �� H �� O �� O �� R �� X �� [ �� v �� { �� � �� � �� � g nameg %vector-concatenate� CRG�50 h0 � ) 3 C) *3 �$ " 4 > " G 6) �3 �$ " 4 > " G �$ " 4> " G 4 5454�54 > " G 4 > " G C- 1 3 " 6( " 4��$ " 4�> " G �"��� "��� 6 � g v = g v1 F � g v2 F � g len1 � � g len2 � � g result � � g vs �+ g vs � g filenamef srfi/srfi-43.scm� �� �� �� �� & �� ( �� = �� F �� I! �� V! �� X! �� j" �� w" �� y" �� �# �� �$ �� �# �� �% �� �% "�� �% �� �% �� �& �� �' �� � �� �* ��* ��* ��++ �� = F � �+ g nameg vector-append�g documentationf �(vector-append vec ...) -> vector Return a newly allocated vector that contains all elements in order from the subsequent locations in VEC ...� CRG� hP J ] " 6( " 4��$ " 4�> " G �"��� "��� 6 B g vs J g vs < g filenamef srfi/srfi-43.scm� - �� 2 �� !2 �� #2 �� J3 �� J g nameg vector-concatenate�g documentationf �(vector-concatenate list-of-vectors) -> vector Append each vector in LIST-OF-VECTORS. Equivalent to: (apply vector-append LIST-OF-VECTORS)� CRG�5 h0 ] �$ " 4 > " G 4 5 �C g vec - g filenamef srfi/srfi-43.scm� 5 �� 9 �� 9 �� 9 �� $: �� +: �� - g nameg vector-empty?�g documentationf d(vector-empty? vec) -> boolean Return true if VEC is empty, i.e. its length is 0, and false if not.� CR5 h( � ]( C 4�5�$ � "���C� g len ( g vs ( g filenamef srfi/srfi-43.scm� > �� ? �� ? �� @ �� @ %�� @ �� @ �� @ �� A #�� &A �� ( g nameg all-of-length?� CO hP - ] �$ C � �&