/
/
lib64
/
guile
/
2.0
/
ccache
/
ice-9
Server: server63.web-hosting.com (198.54.116.184)
You: 216.73.216.61
PHP 7.4.33
Dir:
/lib64/guile/2.0/ccache/ice-9
Edit:
/lib64/guile/2.0/ccache/ice-9/threads.go
GOOF----LE-8-2.0�- ] � 4 h� ] g guile� � g define-module*� � � g ice-9� g threads� � g filenameS� f ice-9/threads.scm� g importsS� g futures� � � g match� � � � g exportsS� g begin-thread� g parallel� g letpar� g make-thread� g with-mutex� g monitor� g par-map� g par-for-each� g n-par-map� g n-par-for-each� g n-for-each-par-map� g %thread-handler� � !g set-current-module� "! � #! � $g make-syntax-transformer� %$ � &$ � 'g macro� (g $sc-dispatch� )( � *( � +g any� ,g each-any� -+,�� .+-�� /g syntax-object� 0g call-with-new-thread� 1g top� 21 � 3g ribcage� 4g dummy� 5g e0� 6g e1� 7456 � 8g m-4712ba65e6-1� 981 � :922 � ;f l-4712ba65e6-6� <f l-4712ba65e6-7� =f l-4712ba65e6-8� >;<= � ?37:> � @3 � Ag x� BA � C9 � Df l-4712ba65e6-3� ED � F3BCE � G2?@F � Hg hygiene� IH � J/0GI � Kg lambda� L/KGI � M/GI � NM � Og syntax-violation� PO � QO � Rf -source expression failed to match any pattern� Sg _� TS,�� Ug generate-temporaries� Vg let� Wg tmp0� XW � Y2 � Zf l-4712ba65e6-16� [Z � \3XY[ � ]5 � ^f l-4712ba65e6-11� _^ � `3]Y_ � af l-4712ba65e6-e� ba � c3BYb � d2@\`@c � e/VdI � fg map� gf � hf � ig future� j/idI � kg values� l/kdI � mg touch� n/mdI � og each� p++ � qop � rq-�� s+r�� tg call-with-values� ug v� vg e� wg b0� xg b1� y4uvwx � zg m-4712ba65e6-1d� {z1 � |{2222 � }f l-4712ba65e6-22� ~f l-4712ba65e6-23� f l-4712ba65e6-24� �f l-4712ba65e6-25� �f l-4712ba65e6-26� �}~�� � �3y|� � �{ � �f l-4712ba65e6-1f� �� � �3B�� � �2�@� � �/t�I � �/K�I � �/�I � �g proc� �g arg� �4�� � �g m-4712ba65e6-30� ��1 � ��22 � �f l-4712ba65e6-35� �f l-4712ba65e6-36� �f l-4712ba65e6-37� ���� � �3��� � �� � �f l-4712ba65e6-32� �� � �3B�� � �2�@� � �/0�I � �/K�I � �/�I � �� � �+.�� �g m� �4�56 � �g m-4712ba65e6-3d� ��1 � ��222 � �f l-4712ba65e6-42� �f l-4712ba65e6-43� �f l-4712ba65e6-44� �f l-4712ba65e6-45� ����� � �3��� � �� � �f l-4712ba65e6-3f� �� � �3B�� � �2�@� � �/V�I � �/A�I � �g dynamic-wind� �/��I � �/K�I � �g lock-mutex� �/��I � ��� � ��� � �g begin� �/��I � �g unlock-mutex� �/��I � ��� � ��� � �� � �g first� �g rest� �4�� � �g m-4712ba65e6-4c� ��1 � ��22 � �f l-4712ba65e6-51� �f l-4712ba65e6-52� �f l-4712ba65e6-53� ���� � �3��� � �� � �f l-4712ba65e6-4e� �� � �3B�� � �2�@� � �/�I � �g make-mutex� �/��I � �� � �g reverse� �� � �� � �g make-future� � � � � � � �g par-mapper� �g cons� �g for-each� �g const� �g make-list� �g length� �g join-thread� �g car� �g cdr� �g apply� �g no-value� �� � �g current-error-port� �g display� �f In thread:� �g newline� �g display-error� �f uncaught throw to � �f : � �g thread-handler�C 5 h8 � ]4 5 4# > " G 4&'*.JLN h M ]�����C E g dummy g e0 g e1 CQR h( � ] 4 5$ @ 6 � g x " g tmp " g filenamef ice-9/threads.scm� 7 �� " g macro-typeg syntax-rules�g patternsg e0g e1g ... C5R4&'*TU*,ehj h X ] C P g tmp-4712ba65e6-19 g tmp-4712ba65e6-18 Cln h 9 ] C 1 g tmp-4712ba65e6-1a C h , ]4L 54 5� C $ g tmp0 CQR h0 ]4 545$ O @6w g e0 0 g tmp 0 g tmp 0 g filenamef ice-9/threads.scm� @ !�� @ �� 0 CQR h( d ] 4 5$ @ 6 \ g x " g tmp " g filenamef ice-9/threads.scm� = �� " C5R4&'*s��� h k ]� ��� C c g dummy g v g e g b0 g b1 CQR h( � ] 4 5$ @ 6 � g x " g tmp " g filenamef ice-9/threads.scm� E �� " g macro-typeg syntax-rules�g patternsg vg e g ... g b0g b1g ... C5R4&'*.��� h P ]� ��C H g dummy g proc g arg CQR h( � ] 4 5$ @ 6 � g x " g tmp " g filenamef ice-9/threads.scm� K �� " g macro-typeg syntax-rules�g patternsg procg argg ... C5R4&'*�������� h0 \ ] �� ��� C T g dummy ) g m ) g e0 ) g e1 ) ) CQR h( � ] 4 5$ @ 6 � g x " g tmp " g filenamef ice-9/threads.scm� P �� " g macro-typeg syntax-rules�g patternsg mg e0g e1g ... C5R4&'*.�� h R ]���C J g dummy g first g rest CQR h( � ] 4 5$ @ 6 � g x " g tmp " g filenamef ice-9/threads.scm� W �� " g macro-typeg syntax-rules�g patternsg firstg restg ... C5R�� h L ] LL 6D g filenamef ice-9/threads.scm� ` �� ` �� Cm h� e ]9" ( 845454LO 54L ?L456�$ 8��$ *���$ ���"���CCC "��s ] g lists � g ls � g p-ls � g p-ls � g tails D g heads D g tail 3 D g head 3 D g w N � g w ] � g x ] � g filenamef ice-9/threads.scm� ] �� ^ �� ` �� - a �� 3 ` �� < b �� D b �� G ^ �� � d �� � ^ �� � g nameg loop� C h( � - 1 3 O L Q 6 } g proc " g lists " g loop " g filenamef ice-9/threads.scm� \ �� ] �� " C h � ]O C y g mapper g cons g filenamef ice-9/threads.scm� [ �� g nameg par-mapper� C�R4�ifi�i5R4�i�i4�i55R�����0��f�� hh � ]" ]4L > " G M( L 64M5M 4M5NM�N4L > " G 4L ?�"���"��� � g args / c g my-result / c g filenamef ice-9/threads.scm� s �� t �� u �� v �� $ w �� % x %�� / x �� 4 z *�� > z �� A { (�� C { �� D | �� X } /�� _ } �� c ~ �� c t �� g C hx � - 1 3 H45 H44J�55H" B �$ 4J> " G C4O 5J�K�"��� "��� � g n w g proc w g arglists w g m w g threads w g results $ w g result ( w g i . p g filenamef ice-9/threads.scm� i �� j �� j �� k �� j �� l �� l �� l %�� " l �� $ l �� $ j �� . n �� 3 o �� 7 n �� 8 p �� O s �� e s �� g r �� j n �� p n �� w g nameg n-par-map� CR���0��f��� hp � ]" _4L > " G M�( L 64M5 4M5N4L > " G 4L > " G "���"��� � g args . e g filenamef ice-9/threads.scm� � �� � �� � �� � �� � �� % � �� & � %�� . � �� 1 � *�� ; � �� < � �� N � �� e � �� e � �� i C hX 9 - 1 3 H45 H" 1 �$ J64O 5J�K�"��� "��� 1 g n S g proc S g arglists S g m S g threads S g i L g filenamef ice-9/threads.scm� � �� � �� � �� � �� � �� � �� $ � �� , � �� - � �� A � �� C � �� F � �� L � �� S g nameg n-par-for-each� CR������0���f�� h� � ]" �4L > " G M( L 6M�&