⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.23
Server IP:
178.33.27.10
Server:
Linux cpanel.dev-unit.com 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
Server Software:
Apache/2.4.57 (Unix) OpenSSL/1.0.2k-fips
PHP Version:
8.2.11
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
lib64
/
guile
/
2.0
/
ccache
/
srfi
/
View File Name :
srfi-45.go
GOOF----LE-8-2.0� ]� 4 hmM ] g guile� � g define-module*� � � g srfi� g srfi-45� � g filenameS� f srfi/srfi-45.scm� g importsS� g srfi-9� � � g gnu� � � � g exportsS� g delay� g lazy� g force� g eager� g promise?� � g replacementsS� � g set-current-module� � � g cond-expand-provide� g current-module� ! � "g promise� #g %make-promise-procedure� $g make-syntax-transformer� %$ � &$ � 'g make-promise� (g macro� )g $sc-dispatch� *) � +) � ,g _� -g any� .,- � /g syntax-object� 0g lambda� 1g m-yWYlF6Efy6Iond6Oy8Ztg8-15801� 2g top� 312 � 4g ribcage� 5g t-15800� 65 � 73 � 8f l-yWYlF6Efy6Iond6Oy8Ztg8-15806� 98 � :4679 � ;4 � <g x� =< � >f l-yWYlF6Efy6Iond6Oy8Ztg8-15803� ?> � @4=7? � Ag shift� Bg proc-name� Cg args� DBC � E2 � FEE � Gf l-eVwgcZjYcWJIYmKTLyBwUJ-18273� Hf l-eVwgcZjYcWJIYmKTLyBwUJ-18274� IGH � J4DFI � Kg key� Lg value� Mg name� Ng formals� Og body� PKLMNO � QEEEEE � Rf l-eVwgcZjYcWJIYmKTLyBwUJ-18260� Sf l-eVwgcZjYcWJIYmKTLyBwUJ-18261� Tf l-eVwgcZjYcWJIYmKTLyBwUJ-18262� Uf l-eVwgcZjYcWJIYmKTLyBwUJ-18263� Vf l-eVwgcZjYcWJIYmKTLyBwUJ-18264� WRSTUV � X4PQW � Yg make-procedure-name� ZY � [E � \f l-eVwgcZjYcWJIYmKTLyBwUJ-18244� ]\ � ^4Z[] � _E � `f l-eVwgcZjYcWJIYmKTLyBwUJ-18243� a` � b4=_a � c3:;@A;;;;JX^b � dg hygiene� ed � f/0ce � gg val� hE:;@ � id � j/ghi � kj � lg make-struct� mg m-yWYlF6Efy6Iond6Oy8Ztg8-15798� nm2 � og t-18484� pg t-18483� qg t-18482� ropq � sg m-eVwgcZjYcWJIYmKTLyBwUJ-18485� ts2 � uttt � vf l-eVwgcZjYcWJIYmKTLyBwUJ-18489� wf l-eVwgcZjYcWJIYmKTLyBwUJ-18490� xf l-eVwgcZjYcWJIYmKTLyBwUJ-18491� yvwx � z4ruy � {g ctor-args� |{ � }f l-eVwgcZjYcWJIYmKTLyBwUJ-18465� ~} � 4|_~ � �g ctor� �g field� ��� � �f l-eVwgcZjYcWJIYmKTLyBwUJ-18461� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18462� ��� � �4�F� � �g form� �g type-name� �g constructor-spec� �g field-names� ����� � �EEEE � �f l-eVwgcZjYcWJIYmKTLyBwUJ-18450� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18451� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18452� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18453� ����� � �4��� � �g record-layout� �g functional-setters� �g setters� �g copier� �g getters� �g constructor� �g getter-identifiers� �g field-identifiers� ��������� � �EEEEEEEE � �f l-eVwgcZjYcWJIYmKTLyBwUJ-18410� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18408� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18406� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18404� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18402� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18400� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18398� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18396� ��������� � �4��� � �f l-eVwgcZjYcWJIYmKTLyBwUJ-18395� �� � �4=_� � �n:;@A;z;;;�;��� � �/l�e � �/"hi � �/ �e � ����j � �fk� � �g identifier?� � � � � � � �E;@ � �/#�i � �g syntax-violation� �� � �� � �f -source expression failed to match any pattern� �g record-type-vtable� � � � � � � �g pw� �g default-record-printer� � � � � � � �g � �g set-struct-vtable-name!� � � � � � � �g vtable-offset-user� � � � � � � �g %promise?-procedure� �g m-yWYlF6Efy6Iond6Oy8Ztg8-15811� ��2 � �g t-15810� �� � �� � �f l-yWYlF6Efy6Iond6Oy8Ztg8-15816� �� � �4��� � �f l-yWYlF6Efy6Iond6Oy8Ztg8-15813� �� � �4=�� � ���;�A;;;;JX^b � �/0�e � �g obj� �g t-18725� �g t-18719� �g t-18720� �g t-18721� �g t-18724� �g t-18723� �g t-18722� �������� � �g m-eVwgcZjYcWJIYmKTLyBwUJ-18726� ��2 � �������� � �f l-eVwgcZjYcWJIYmKTLyBwUJ-18730� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18731� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18732� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18733� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18734� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18735� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18736� �������� � �4��� � �g copier-id� �� � �f l-eVwgcZjYcWJIYmKTLyBwUJ-18717� �� � �4�_� � �g ctor-name� �� � �f l-eVwgcZjYcWJIYmKTLyBwUJ-18709� �� � �4�_� � �� � �f l-eVwgcZjYcWJIYmKTLyBwUJ-18707� �� � �4�_� � �g layout� �� � �f l-eVwgcZjYcWJIYmKTLyBwUJ-18705� �� � �4�_� � �g immutable?� �� � �f l-eVwgcZjYcWJIYmKTLyBwUJ-18703� � �4�_ �g field-count� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18701� �4_ �g getter-ids� � f l-eVwgcZjYcWJIYmKTLyBwUJ-18698� �4_ �g field-ids� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18695� �4 _ �g predicate-name�g field-spec����� �EEEEEE �f l-eVwgcZjYcWJIYmKTLyBwUJ-18682�f l-eVwgcZjYcWJIYmKTLyBwUJ-18683�f l-eVwgcZjYcWJIYmKTLyBwUJ-18684�f l-eVwgcZjYcWJIYmKTLyBwUJ-18685�f l-eVwgcZjYcWJIYmKTLyBwUJ-18686�f l-eVwgcZjYcWJIYmKTLyBwUJ-18687� �4 �n�;�A;�;;;;�;�;�;�;;;;�� �/�e � � g and�!/ e �"g struct?�#/"e �$# �%g eq?�&/%e �'g struct-vtable�(/'e �)( �*E�;� �+/"*i �,&)+ �-!$, �.�- �/E;� �0/�/i �1g throw-bad-struct�2 1 �3 1 �4g promise-val�5g %promise-val-procedure�6g free-id�7g %%on-error�8g m-yWYlF6Efy6Iond6Oy8Ztg8-15820�982 �:9 �;f l-yWYlF6Efy6Iond6Oy8Ztg8-15822�<; �=4=:< �>9;=A;;;;JX^b �?/7>e �@6? �A@- �Bg %%type�Cg t-18508�Dg t-18509�Eg t-18510�Fg t-18511�Gg t-18512�Hg t-18513�Ig t-18514�JCDEFGHI �Kg m-eVwgcZjYcWJIYmKTLyBwUJ-18515�LK2 �MLLLLLLL �Nf l-eVwgcZjYcWJIYmKTLyBwUJ-18519�Of l-eVwgcZjYcWJIYmKTLyBwUJ-18520�Pf l-eVwgcZjYcWJIYmKTLyBwUJ-18521�Qf l-eVwgcZjYcWJIYmKTLyBwUJ-18522�Rf l-eVwgcZjYcWJIYmKTLyBwUJ-18523�Sf l-eVwgcZjYcWJIYmKTLyBwUJ-18524�Tf l-eVwgcZjYcWJIYmKTLyBwUJ-18525�UNOPQRST �V4JMU �Wg getter�Xg index�YWX �Zf l-eVwgcZjYcWJIYmKTLyBwUJ-18506�[f l-eVwgcZjYcWJIYmKTLyBwUJ-18507�\Z[ �]4YF\ �^�� �_EEE �`f l-eVwgcZjYcWJIYmKTLyBwUJ-18501�af l-eVwgcZjYcWJIYmKTLyBwUJ-18502�bf l-eVwgcZjYcWJIYmKTLyBwUJ-18503�c`ab �d4^_c �en;=A;V;;;];d�� �f/Bee �g6f �h,Ag- �ig ck�jg err�kg s�ljk �m99 �nf l-yWYlF6Efy6Iond6Oy8Ztg8-15825�of l-yWYlF6Efy6Iond6Oy8Ztg8-15826�pno �q4lmp �r9q;=A;;;;JX^b �s/ire �tg quote�u/tre �vEq;= �w/"vi �xuw �yx �zg %%index�{/zee �|6{ �},A|- �~f l-yWYlF6Efy6Iond6Oy8Ztg8-15830�f l-yWYlF6Efy6Iond6Oy8Ztg8-15831��~ ��4lm� ��9�;=A;;;;JX^b ��/i�e ��/t�e ���;= ��/ �i ���� ��� ��g %%copier��/�ee ��6� ��,A�- ��f l-yWYlF6Efy6Iond6Oy8Ztg8-15835��f l-yWYlF6Efy6Iond6Oy8Ztg8-15836���� ��4lm� ��9�;=A;;;;JX^b ��/i�e ��/t�e ��g %%promise-set-fields��E�;= ��/��i ���� ��� ��g t-15819��� ��f l-yWYlF6Efy6Iond6Oy8Ztg8-15840��� ��4�:� ��9�;=A;;;;JX^b ��/0�e ��n�;=A;V;;;];d�� ��/k�e ��� ��g if��/��e ��/%�e ��/'�e ���� ��E�;= ��/"�i ����� ��g struct-ref��/��e ���;= ��/ �i ����� ��/1�e ��/t�e ��/4�i ���� ����� ������ ����� ��E;= ��/5�i ��g each��-- ���� ��-����-����-����g %%set-fields��g dummy��g check?��g expr����kW� ��g m-yWYlF6Efy6Iond6Oy8Ztg8-15844���2 ���nnnn ��f l-yWYlF6Efy6Iond6Oy8Ztg8-15849��f l-yWYlF6Efy6Iond6Oy8Ztg8-15850��f l-yWYlF6Efy6Iond6Oy8Ztg8-15851��f l-yWYlF6Efy6Iond6Oy8Ztg8-15852��f l-yWYlF6Efy6Iond6Oy8Ztg8-15853������� ��4��� ��� ��f l-yWYlF6Efy6Iond6Oy8Ztg8-15846��� ��4=�� ��g t-18539��g t-18541��g t-18540����� ��g m-eVwgcZjYcWJIYmKTLyBwUJ-18542���2 ����� ��f l-eVwgcZjYcWJIYmKTLyBwUJ-18546��f l-eVwgcZjYcWJIYmKTLyBwUJ-18547��f l-eVwgcZjYcWJIYmKTLyBwUJ-18548����� ��4��� ��f l-eVwgcZjYcWJIYmKTLyBwUJ-18536��f l-eVwgcZjYcWJIYmKTLyBwUJ-18537��f l-eVwgcZjYcWJIYmKTLyBwUJ-18538����� ��4^_� ��n�;�A;�;;;��� ��/��e ��E�;� ��/"�i ��/4�i ��� ��g map��� ��� ��g list��g promise-val-set!��g %promise-val-set!-procedure��,-- ��g m-yWYlF6Efy6Iond6Oy8Ztg8-15864���2 ��g t-15862��g t-15863���� ���� ��f l-yWYlF6Efy6Iond6Oy8Ztg8-15869��f l-yWYlF6Efy6Iond6Oy8Ztg8-15870���� ��4��� ��� ��f l-yWYlF6Efy6Iond6Oy8Ztg8-15866��� ��4=�� ����;�A;;;;JX^b ��/0�e � g t-18573�g t-18574� �g m-eVwgcZjYcWJIYmKTLyBwUJ-18575�2 � �f l-eVwgcZjYcWJIYmKTLyBwUJ-18579�f l-eVwgcZjYcWJIYmKTLyBwUJ-18580� � 4 � g setter�MW �f l-eVwgcZjYcWJIYmKTLyBwUJ-18567� f l-eVwgcZjYcWJIYmKTLyBwUJ-18568�f l-eVwgcZjYcWJIYmKTLyBwUJ-18569� �4_ �X �f l-eVwgcZjYcWJIYmKTLyBwUJ-18558�f l-eVwgcZjYcWJIYmKTLyBwUJ-18559� �4F �g field-specs�� �f l-eVwgcZjYcWJIYmKTLyBwUJ-18554�f l-eVwgcZjYcWJIYmKTLyBwUJ-18555� �4F �n�;�A; ;;�� �/ke �/ge � � /�e �!/%e �"/'e �#" �$E�;� �%/"$i �&!#% �'g struct-set!�(/'e �)�;� �*/ )i �+(* �,/1e �-/te �./�$i �/-. �0,/ �1 &+0 �2�1 �3E;� �4/�3i �5g %make-value-procedure�6g make-value�7g m-yWYlF6Efy6Iond6Oy8Ztg8-15894�872 �9g t-15892�:g t-15893�;9: �<88 �=f l-yWYlF6Efy6Iond6Oy8Ztg8-15899�>f l-yWYlF6Efy6Iond6Oy8Ztg8-15900�?=> �@4;<? �A8 �Bf l-yWYlF6Efy6Iond6Oy8Ztg8-15896�CB �D4=AC �E8@;DA;;;;JX^b �F/0Ee �Gg tag�HE@;D �I/GHi �Jg proc�K/JHi �LIK �Mg m-yWYlF6Efy6Iond6Oy8Ztg8-15890�NM2 �ON@;DA;z;;;�;��� �P/lOe �Q/LHi �R/ Oe �SPQRIK �TFLS �UE;D �V/5Ui �Wg pwpw�XGJ �Yg %value?-procedure�Zg value?�[g m-yWYlF6Efy6Iond6Oy8Ztg8-15906�\[2 �]g t-15905�^] �_\ �`f l-yWYlF6Efy6Iond6Oy8Ztg8-15911�a` �b4^_a �cf l-yWYlF6Efy6Iond6Oy8Ztg8-15908�dc �e4=_d �f\b;eA;;;;JX^b �g/0fe �hNb;eA;�;;;;�;�;�;�;;;;�� �i/�he �ji �k/ he �l/"he �mli �n/%he �o/'he �poi �qEb;e �r/Lqi �snpr �tkms �ugjt �vE;e �w/Yvi �xg value-tag�yg %value-tag-procedure�zg m-yWYlF6Efy6Iond6Oy8Ztg8-15915�{z2 �|{ �}f l-yWYlF6Efy6Iond6Oy8Ztg8-15917�~} �4=|~ ��{;A;;;;JX^b ��/7�e ��6� ���- ��N;A;V;;;];d�� ��/B�e ��6� ��,��- ��{{ ��f l-yWYlF6Efy6Iond6Oy8Ztg8-15920��f l-yWYlF6Efy6Iond6Oy8Ztg8-15921���� ��4l�� ��{�;A;;;;JX^b ��/i�e ��/t�e ��E�; ��/L�i ���� ��� ��/z�e ��6� ��,��- ��f l-yWYlF6Efy6Iond6Oy8Ztg8-15925��f l-yWYlF6Efy6Iond6Oy8Ztg8-15926���� ��4l�� ��{�;A;;;;JX^b ��/i�e ��/t�e ���; ��/ �i ���� ��� ��/��e ��6� ��,��- ��f l-yWYlF6Efy6Iond6Oy8Ztg8-15930��f l-yWYlF6Efy6Iond6Oy8Ztg8-15931���� ��4l�� ��{�;A;;;;JX^b ��/i�e ��/t�e ��g %%value-set-fields��E�; ��/��i ���� ��� ��g t-15914��� ��f l-yWYlF6Efy6Iond6Oy8Ztg8-15935��� ��4�|� ��{�;A;;;;JX^b ��/0�e ��N�;A;V;;;];d�� ��/k�e ��� ��/��e ��/%�e ��/'�e ���� ��E�; ��/L�i ����� ��/��e ���; ��/ �i ����� ��/1�e ��/t�e ��/x�i ���� ����� ������ ����� ��E; ��/y�i ��g value-proc��g %value-proc-procedure��g m-yWYlF6Efy6Iond6Oy8Ztg8-15939���2 ��� ��f l-yWYlF6Efy6Iond6Oy8Ztg8-15941��� ��4=�� ���;�A;;;;JX^b ��/7�e ��6� ���- ��N;�A;V;;;];d�� ��/B�e ��6� ��,��- ���� ��f l-yWYlF6Efy6Iond6Oy8Ztg8-15944��f l-yWYlF6Efy6Iond6Oy8Ztg8-15945���� ��4l�� ����;�A;;;;JX^b ��/i�e ��/t�e ��E�;� ��/L�i ���� ��� ��/z�e ��6� ��,��- ��f l-yWYlF6Efy6Iond6Oy8Ztg8-15949��f l-yWYlF6Efy6Iond6Oy8Ztg8-15950���� ��4l�� ����;�A;;;;JX^b ��/i�e ��/t�e ���;� ��/�i ���� ��� ��/��e ��6� ��,��- ��f l-yWYlF6Efy6Iond6Oy8Ztg8-15954��f l-yWYlF6Efy6Iond6Oy8Ztg8-15955���� ��4l�� � ��;�A;;;;JX^b �/i e �/t e �E�;� �/�i � � �g t-15938� � f l-yWYlF6Efy6Iond6Oy8Ztg8-15959� �4� ��;�A;;;;JX^b � /0e �N;�A;V;;;];d�� �/ke � �/�e �/%e �/'e � �E;� �/Li � �/�e �;� �/i � �/1e �/te �/�i � � �! �" ! �#E;� �$/�#i �%g m-yWYlF6Efy6Iond6Oy8Ztg8-15963�&%2 �'&NNNN �(f l-yWYlF6Efy6Iond6Oy8Ztg8-15968�)f l-yWYlF6Efy6Iond6Oy8Ztg8-15969�*f l-yWYlF6Efy6Iond6Oy8Ztg8-15970�+f l-yWYlF6Efy6Iond6Oy8Ztg8-15971�,f l-yWYlF6Efy6Iond6Oy8Ztg8-15972�-()*+, �.4�'- �/& �0f l-yWYlF6Efy6Iond6Oy8Ztg8-15965�10 �24=/1 �3N.;2A;�;;;��� �4/�3e �5E.;2 �6/L5i �7/x5i �8/�5i �978 �:g value-tag-set!�;g %value-tag-set!-procedure�<g m-yWYlF6Efy6Iond6Oy8Ztg8-15983�=<2 �>g t-15981�?g t-15982�@>? �A== �Bf l-yWYlF6Efy6Iond6Oy8Ztg8-15988�Cf l-yWYlF6Efy6Iond6Oy8Ztg8-15989�DBC �E4@AD �F= �Gf l-yWYlF6Efy6Iond6Oy8Ztg8-15985�HG �I4=FH �J=E;IA;;;;JX^b �K/0Je �LNE;IA; ;;�� �M/kLe �N/gLe �OMN �P/�Le �Q/%Le �R/'Le �SRM �TEE;I �U/LTi �VQSU �W/'Le �XE;I �Y/ Xi �ZWMYN �[/1Le �\/tLe �]/:Ti �^\] �_[M^ �`PVZ_ �aKO` �bE;I �c/;bi �dg value-proc-set!�eg %value-proc-set!-procedure�fg m-yWYlF6Efy6Iond6Oy8Ztg8-15996�gf2 �hg t-15994�ig t-15995�jhi �kgg �lf l-yWYlF6Efy6Iond6Oy8Ztg8-16001�mf l-yWYlF6Efy6Iond6Oy8Ztg8-16002�nlm �o4jkn �pg �qf l-yWYlF6Efy6Iond6Oy8Ztg8-15998�rq �s4=pr �tgo;sA;;;;JX^b �u/0te �vNo;sA; ;;�� �w/kve �x/gve �ywx �z/�ve �{/%ve �|/'ve �}|w �~Eo;s �/L~i ��{} ��/'ve ��o;s ��/�i ���w�x ��/1ve ��/tve ��/d~i ���� ���w� ��z��� ��uy� ��E;s ��/e�i ��g exp���� ��g m-yWYlF6Efy6Iond6Oy8Ztg8-16030���2 ���E ��f l-yWYlF6Efy6Iond6Oy8Ztg8-16035��f l-yWYlF6Efy6Iond6Oy8Ztg8-16036���� ��4��� ��� ��f l-yWYlF6Efy6Iond6Oy8Ztg8-16032��� ��4=�� ��E�;� ��/'�i ��/6�i ��/t�i ��/�i ���� ��/0�i ��g m-yWYlF6Efy6Iond6Oy8Ztg8-16050���2 ���E ��f l-yWYlF6Efy6Iond6Oy8Ztg8-16055��f l-yWYlF6Efy6Iond6Oy8Ztg8-16056���� ��4��� ��� ��f l-yWYlF6Efy6Iond6Oy8Ztg8-16052��� ��4=�� ��E�;� ��/�i ��/�i ��g on-eagerS������g on-lazyS��� ����� ��g promise-visit��g set-record-type-printer!��g format��f #<promise = ~s>��f #<promise => ~s>�C 5 h�- � ]4 5 4 > "