/
/
usr
/
lib64
/
guile
/
2.0
/
ccache
/
srfi
/
srfi-9
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/srfi-9
Edit:
/usr/lib64/guile/2.0/ccache/srfi/srfi-9/gnu.go
GOOF----LE-8-2.0�4 ]R 4 hh ] g guile� � g define-module*� � � g srfi� g srfi-9� g gnu� � g filenameS� f srfi/srfi-9/gnu.scm� g importsS� g srfi-1� � � g system� g base� g ck� � � � g exportsS� g set-record-type-printer!� g define-immutable-record-type� g set-field� g set-fields� � g set-current-module� � � g vtable-index-printer� g make-syntax-transformer� ! � " � #g macro� $g $sc-dispatch� %$ � &$ � 'g any� (g each-any� )'(�� *')�� +'*�� ,'+�� -g syntax-object� .g @@� /g top� 0/ � 1g ribcage� 2g dummy� 3g name� 4g ctor� 5g pred� 6g fields� 723456 � 8g m-1e8bcc284-11e� 98/ � :90000 � ;f l-1e8bcc284-123� <f l-1e8bcc284-124� =f l-1e8bcc284-125� >f l-1e8bcc284-126� ?f l-1e8bcc284-127� @;<=>? � A17:@ � B1 � Cg x� DC � E9 � Ff l-1e8bcc284-120� GF � H1DEG � I0ABH � Jg hygiene� KJ � L-.IK � M-IK � N-IK � OMN � Pg %define-record-type� Q-PIK � RLOQ � S-IK � T-IK � Ug syntax-violation� VU � WU � Xf -source expression failed to match any pattern� Y''(' � Zg %set-fields� [g s� \g getter� ]g expr� ^2[\] � _g m-1e8bcc284-130� `_/ � a`000 � bf l-1e8bcc284-135� cf l-1e8bcc284-136� df l-1e8bcc284-137� ef l-1e8bcc284-138� fbcde � g1^af � h` � if l-1e8bcc284-132� ji � k1Dhj � l0gBk � m-ZlK � n-lK � o-lK � p''�� q'p�� rg rest� s2[r � tg m-1e8bcc284-140� ut/ � vu00 � wf l-1e8bcc284-145� xf l-1e8bcc284-146� yf l-1e8bcc284-147� zwxy � {1svz � |u � }f l-1e8bcc284-142� ~} � 1D|~ � �0{B � �-Z�K � �-�K � �-�K � �g each� �p' � ��� � �g fold� �g find� �g free-identifier=?� �g delq� �g collate-set-field-specs� �g unknown-getter� �g _� ��'' � �f unknown getter� �g c-list� �g free-id� �g quote� �0 � �f l-1e8bcc284-175� �� � �1D�� � �0B� � �-��K � ��� � ��' � ��� � �'��� ����� �g v� �[� � �00 � �f l-1e8bcc284-178� �f l-1e8bcc284-179� ��� � �1��� � �0�B� � �-�K � �-��K � �g c-same-type-check� �f l-1e8bcc284-17e� �� � �1D�� � �0B� � �-��K � ��� � ��' � ��( � ��) � ��'����� � �g every� �g format� �f \field paths ~a and ~a require one object to belong to two different record types (~a and ~a)� �g syntax->datum� �g append� �� � �� � �g orig-form� �g path� �g getter0� �g type0� �g type� �g on-success� �[���\��� � �00000000 � �f l-1e8bcc284-1a3� �f l-1e8bcc284-1a4� �f l-1e8bcc284-1a5� �f l-1e8bcc284-1a6� �f l-1e8bcc284-1a7� �f l-1e8bcc284-1a8� �f l-1e8bcc284-1a9� �f l-1e8bcc284-1aa� ��������� � �1��� � �0�B� � �-�K � �-��K � �f l-1e8bcc284-1b4� �� � �1D�� � �0BB� � �-.�K � �-�K � �-�K � ��� � �g getter-type� �-��K � ���� � �g getter-index� �-��K � ���� � �g getter-copier� �-��K � ���� � �''' � ��''(' � �' � ��''('� � �'��� �(䌤 �'匤 �'挤 ��猤 �g map� �� � �� � �g car� ��\ � �f l-1e8bcc284-1ea� �f l-1e8bcc284-1eb� ��� � �1��� � �g collated-specs� �� � �f l-1e8bcc284-1e2� �� � �1��� � �g check?� �g path-so-far� �g struct-expr� �g head� �g tail� �������] � �0000000 � �f l-1e8bcc284-1d4� �f l-1e8bcc284-1d5� f l-1e8bcc284-1d6�f l-1e8bcc284-1d7�f l-1e8bcc284-1d8�f l-1e8bcc284-1d9�f l-1e8bcc284-1da��� �1�� ���� �000 � f l-1e8bcc284-1b8� f l-1e8bcc284-1b9�f l-1e8bcc284-1ba� � 1 �0BB�BB�B BB� �-�K �'' �� �'����] �f l-1e8bcc284-202�f l-1e8bcc284-203�f l-1e8bcc284-204� �1 �g spec� �f l-1e8bcc284-1fe� �1� �g err� � f l-1e8bcc284-1f0�! �"1�! �#0BBBBBBB"BB�BB�B BB� �$-�#K �%f l-1e8bcc284-20a�&% �'1�& �(0B'BBBBBBB"BB�BB�B BB� �)-Z(K �*g struct-ref�+-*(K �,-[(K �--(K �.-�(K �/g list�0g t-1e8bcc284-1f2�10 �2g m-1e8bcc284-1f3�32/ �43 �5f l-1e8bcc284-1f7�65 �71146 �80B7BBB"BB�BB�B BB� �9-8K �:-�8K �;-�8K �<-�8K �=g let�>-=8K �?-[8K �@�� �A�@��B'A��C(B��D'C��E'D��F�E��Gf duplicate field path�H(' �I�H �J'I��K(J��L'K��M'L��N�M��Of %one field path is a prefix of another�P�q��Qf invalid syntax�C 5 h� g ]4 5 4 > " G h � ] �C � g type g proc g filenamef srfi/srfi-9/gnu.scm� �� " �� g nameg set-record-type-printer!�g documentationf (Set PROC as the custom printer for TYPE.� CR4"#&,RST h( w ]����������C o g dummy # g name # g ctor # g pred # g fields # # CWX h( � ] 4 5$ @ 6 � g x " g tmp " g filenamef srfi/srfi-9/gnu.scm� $ �� " g macro-typeg syntax-rules�g patternsg nameg ctorg predg fieldsg ... C5R4"#&Ymno h b ] C Z g dummy g s g getter g expr CWX h( � ] 4 5$ @ 6 � g x " g tmp " g filenamef srfi/srfi-9/gnu.scm� ) �� " g macro-typeg syntax-rules�g patternsg sg getterg ... g expr C5R4"#&q��� h N ]�������C F g dummy g s g rest CWX h( � ] 4 5$ @ 6 � g x " g tmp " g filenamef srfi/srfi-9/gnu.scm� - �� " g macro-typeg syntax-rules�g patternsg sg rest� C5R&���� h i ]L �6 a g tree g filenamef srfi/srfi-9/gnu.scm� C �� D +�� D �� C� hH � ]4 O 5$ ���45�C �C � g head A g tail A g expr A g result A g t A g filenamef srfi/srfi-9/gnu.scm� B �� C �� C �� ! G �� $ H �� % G �� ' I �� 0 G �� : J �� A g nameg insert� C h � ] 6 ~ g head g tail g expr g filenamef srfi/srfi-9/gnu.scm� M �� M �� CWX h( � ] 4 5$ @ 6 � g specs " g tmp " g filenamef srfi/srfi-9/gnu.scm� A �� " g nameg collate-set-field-specs� C�R4"�#&�U� h � ] 6 { g orig-form g getter g filenamef srfi/srfi-9/gnu.scm� S �� S %�� S �� CWX h( f ] 4 5$ @ 6 ^ g x " g tmp " g filenamef srfi/srfi-9/gnu.scm� P �� " C5�R4"�#&��� h 8 ] C 0 g s g v CWX h( f ] 4 5$ @ 6 ^ g x " g tmp " g filenamef srfi/srfi-9/gnu.scm� V �� " C5�R4"�#&�WX��U���� hX � ] 4 L5$ C444L 5544L L 554 54L55L6 � g t V g g V g t V g filenamef srfi/srfi-9/gnu.scm� b �� c �� c �� e �� f �� g �� ! i �� 2 j �� C k �� J l �� R f �� V d �� V C h � , 3 O 6 � g s g orig-form g path g getter0 g getter g type0 g type g on-success g filenamef srfi/srfi-9/gnu.scm� b �� C�� h � , 3 C � g s g orig-form g path g getter0 g getter g type0 g type g on-success C h@ f ] 4 5" 6$ 4?$ @"���"��� ^ g x 9 g tmp 9 g filenamef srfi/srfi-9/gnu.scm� \ �� 9 C5�R4"Z#���&�&� h m ]C e g check? g orig-form g path-so-far g s C� h | ]C t g check? g orig-form g path-so-far g s g e C��� h w ]� C o g tmp-1e8bcc284-1e6 g tmp-1e8bcc284-1e5 g tmp-1e8bcc284-1e4 C��&)�&$)�+,-.�/ hX � ]L L L4L 5L 4 5����� C � g head U g tail U g expr U g tmp U g filenamef srfi/srfi-9/gnu.scm� � #�� U CWX h0 j ] 4 5$ LLLL O @ 6 b g spec - g tmp - g filenamef srfi/srfi-9/gnu.scm� � �� - C&(9:;<�; h 9 ]L L C 1 g tmp-1e8bcc284-1fb C>? h� 9 ]L L LL� LL L 4LLO L5��L LL L L ��� C 1 g t-1e8bcc284-1f2 � � CWX hX � ]L 4LL LLO L545$ LLLL LLO @6� g getter0 X g getter X g tmp X g tmp ! X g tmp , X g filenamef srfi/srfi-9/gnu.scm� � �� � �� ! � �� X CWX hX 5 ]44554545 $ LLL O @ 6 - g check? T g orig-form T g path-so-far T g struct-expr T g head T g tail T g expr T g collated-specs T g tmp T g tmp * T g filenamef srfi/srfi-9/gnu.scm� � �� � �� � �� � �� T CFUG h � ]6 � g check? g orig-form g path-so-far g s g e g e* g filenamef srfi/srfi-9/gnu.scm� � �� � '�� � �� CNUO h � ]6 � g check? g orig-form g path-so-far g s g getter g expr g filenamef srfi/srfi-9/gnu.scm� � �� � '�� � �� CPUQ h � ]6 � g check? g orig-form g rest g filenamef srfi/srfi-9/gnu.scm� � �� � '�� � �� CWX h� � ]34L 5$ @4L 5$ @4L 5$ O @4L 5$ @4L 5$ @4L 5$ @L 6 � g getter-type � g getter-index � g getter-copier � g tmp � g tmp " � g tmp 9 � g tmp Y � g tmp p � g tmp � � � CWX h8 ] 45$ O @6 w g x 2 g tmp 2 g tmp 2 g filenamef srfi/srfi-9/gnu.scm� s �� t �� 2 C5ZRC _ g m , g filenamef srfi/srfi-9/gnu.scm� ��( �� @ A �� ~ C6
Ukuran: 13.2 KB