����JFIF���������
1#@!#!123s
D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
proc
/
self
/
root
/
proc
/
self
/
root
/
usr
/
lib64
/
guile
/
2.0
/
ccache
/
srfi
/
Filename :
srfi-69.go
back
Copy
GOOF----LE-8-2.0��������]W�4�������h�R������]�g��guile� �� g��define-module*� �� �� g��srfi� g��srfi-69� �� g��filenameS� f��srfi/srfi-69.scm� g��importsS� g��srfi-1� �� �� g��srfi-9� �� �� g��srfi-13� �� �� g��ice-9� g��optargs� �� �� �� g��exportsS� g��make-hash-table� g��hash-table?� g��alist->hash-table� g��hash-table-equivalence-function� g��hash-table-hash-function� g��hash-table-ref� !g��hash-table-ref/default� "g��hash-table-set!� #g��hash-table-delete!� $g��hash-table-exists?� %g��hash-table-update!� &g��hash-table-update!/default� 'g��hash-table-size� (g��hash-table-keys� )g��hash-table-values� *g��hash-table-walk� +g��hash-table-fold� ,g��hash-table->alist� -g��hash-table-copy� .g��hash-table-merge!� /g��string-ci-hash� 0g��hash-by-identity� 1 !"#$%&'()*+,-./0�� 2g�� re-exportsS� 3g��string-hash� 43�� 5g��replacementsS� 6g��hash� 76�� 8g��set-current-module� 98�� :8�� ;g��cond-expand-provide� <g��current-module� =�� >g��make-syntax-transformer� ?>�� @>�� Ag��hashx-invoke� Bg��macro� Cg��$sc-dispatch� DC�� EC�� Fg��_� Gg��any� HFG�� Ig�� syntax->datum� JI�� KI�� Lg�� datum->syntax� ML�� NL�� Og�� ht-associator� Pg�� ht-real-table� Qg��syntax-violation� RQ�� SQ�� Tf��-source expression failed to match any pattern� Ug��with-hashx-values� Vg��let� Wg��first� Xg��second� Yg��third� Zg��most-positive-fixnum� [g��caller-with-default-size� \6�� ]6�� ^g��string-hash-ci� _g��hashq� `g��srfi-69:hash-table� ag��"%make-srfi-69-hash-table-procedure� bg��make-srfi-69-hash-table� cFGGGGGG�� dg�� syntax-object� eg��lambda� fg��m-46961e518c-31� gg��top� hfg�� ig��ribcage� jg��t-46961e518c-2b� kg��t-46961e518c-2c� lg��t-46961e518c-2d� mg��t-46961e518c-2e� ng��t-46961e518c-2f� og��t-46961e518c-30� pjklmno�� qhhhhhh�� rf��l-46961e518c-36� sf��l-46961e518c-37� tf��l-46961e518c-38� uf��l-46961e518c-39� vf��l-46961e518c-3a� wf��l-46961e518c-3b� xrstuvw�� yipqx�� zi�� {g��x� |{�� }h�� ~f��l-46961e518c-33� ~����i|}����g��shift���g�� proc-name���g��args���������g����������f��l-1e8ba8b5a-2ba���f��l-1e8ba8b5a-2bb���������i�������g��key���g��value���g��name���g��formals���g��body���������������������f��l-1e8ba8b5a-2ad���f��l-1e8ba8b5a-2ae���f��l-1e8ba8b5a-2af���f��l-1e8ba8b5a-2b0���f��l-1e8ba8b5a-2b1������������i�������g��make-procedure-name�������������f��l-1e8ba8b5a-29d��������i������������f��l-1e8ba8b5a-29c��������i|������hyz��zzzz����� ���g��hygiene��������de������g�� real-table����yz����������d�������g�� associator���d�������g��size���d�������g��weakness���d�������g��equivalence-function���d�������g�� hash-function���d�����������������g��make-struct���g��m-46961e518c-29����g����g��t-1e8ba8b5a-38d���g��t-1e8ba8b5a-38c���g��t-1e8ba8b5a-38b����������g��m-1e8ba8b5a-38e����g�����������f��l-1e8ba8b5a-392���f��l-1e8ba8b5a-393���f��l-1e8ba8b5a-394����������i�������g�� ctor-args��������f��l-1e8ba8b5a-37a��������i�������g��ctor���g��field���������f��l-1e8ba8b5a-376���f��l-1e8ba8b5a-377���������i�������g��form���g�� type-name���g��constructor-spec���g��field-names�������������������f��l-1e8ba8b5a-36b���f��l-1e8ba8b5a-36c���f��l-1e8ba8b5a-36d���f��l-1e8ba8b5a-36e�����������i�������g�� record-layout���g��functional-setters���g��setters���g��copier���g��getters���g��constructor���g��getter-identifiers���g��field-identifiers���������������������������f��l-1e8ba8b5a-343���f��l-1e8ba8b5a-341���f��l-1e8ba8b5a-33f���f��l-1e8ba8b5a-33d���f��l-1e8ba8b5a-33b���f��l-1e8ba8b5a-339���f��l-1e8ba8b5a-337���f��l-1e8ba8b5a-335���������������i�������f��l-1e8ba8b5a-334��������i|�������yz��z�zzz��z�������d�������d`������d ���������������� ����������g��each-any���F�����Q����Q����f��Wrong number of arguments���g��identifier?���������z���da���g��record-type-vtable�����g��pwpwpwpwpwpw�g��default-record-printer� �� ����������g��set-struct-vtable-name!� ����g��vtable-offset-user�����g��%hash-table?-procedure�FG��g��m-46961e518c-48�g��g��t-46961e518c-47�����f��l-46961e518c-4d���i��f��l-46961e518c-4a���i|��z�zzzz����� � de���!g��obj�"g��t-1e8ba8b5a-47e�#g��t-1e8ba8b5a-478�$g��t-1e8ba8b5a-479�%g��t-1e8ba8b5a-47a�&g��t-1e8ba8b5a-47d�'g��t-1e8ba8b5a-47c�(g��t-1e8ba8b5a-47b�)"#$%&'(��*g��m-1e8ba8b5a-47f�+*g��,+++++++��-f��l-1e8ba8b5a-483�.f��l-1e8ba8b5a-484�/f��l-1e8ba8b5a-485�0f��l-1e8ba8b5a-486�1f��l-1e8ba8b5a-487�2f��l-1e8ba8b5a-488�3f��l-1e8ba8b5a-489�4-./0123��5i),4��6g�� copier-id�76��8f��l-1e8ba8b5a-476�98��:i7�9��;g�� ctor-name�<;��=f��l-1e8ba8b5a-46e�>=��?i<�>��@���Af��l-1e8ba8b5a-46c�BA��Ci@�B��Dg��layout�ED��Ff��l-1e8ba8b5a-46a�GF��HiE�G��Ig�� immutable?�JI��Kf��l-1e8ba8b5a-468�LK��MiJ�L��Ng��field-count�ON��Pf��l-1e8ba8b5a-466�QP��RiO�Q��Sg�� getter-ids�TS��Uf��l-1e8ba8b5a-463�VU��WiT�V��Xg�� field-ids�YX��Zf��l-1e8ba8b5a-460�[Z��\iY�[��]g��predicate-name�^g�� field-spec�_I���]^��`��������af��l-1e8ba8b5a-453�bf��l-1e8ba8b5a-454�cf��l-1e8ba8b5a-455�df��l-1e8ba8b5a-456�ef��l-1e8ba8b5a-457�ff��l-1e8ba8b5a-458�gabcdef��hi_`g��i�z�z5zzzz:z?zCzHzMzRzWz\h����jd!i���kj��lg��and�mdli���ng��struct?�odni���poj��qg��eq?�rdqi���sg�� struct-vtable�tdsi���utj��v�z��wd`v���xruw��ympx��z ky��{�z��|d{���}g��throw-bad-struct�~}��}���g��%ht-real-table-procedure��g��free-id��g�� %%on-error��g��m-46961e518c-54���g�������f��l-46961e518c-56������i|������z��zzzz�������d������������G���g��%%type��g��t-1e8ba8b5a-3a5��g��t-1e8ba8b5a-3a6��g��t-1e8ba8b5a-3a7��g��t-1e8ba8b5a-3a8��g��t-1e8ba8b5a-3a9��g��t-1e8ba8b5a-3aa��g��t-1e8ba8b5a-3ab������������g��m-1e8ba8b5a-3ac���g�������������f��l-1e8ba8b5a-3b0��f��l-1e8ba8b5a-3b1��f��l-1e8ba8b5a-3b2��f��l-1e8ba8b5a-3b3��f��l-1e8ba8b5a-3b4��f��l-1e8ba8b5a-3b5��f��l-1e8ba8b5a-3b6������������i������g��getter��g��index�������f��l-1e8ba8b5a-3a3��f��l-1e8ba8b5a-3a4�������i�������S6���������f��l-1e8ba8b5a-39e��f��l-1e8ba8b5a-39f��f��l-1e8ba8b5a-3a0��������i�������z��z�zzz�z������d�����������F��G���g��ck��g��err��g��s������������f��l-46961e518c-59��f��l-46961e518c-5a�������i��������z��zzzz����� ��d������g��quote��d��������z����d`��������������g��%%index��d�����������F��G���f��l-46961e518c-5e��f��l-46961e518c-5f�������i��������z��zzzz����� ��d������d�������z����d ��������������g��%%copier��d�����������F��G���f��l-46961e518c-63��f��l-46961e518c-64�������i��������z��zzzz����� ��d������d������g��%%srfi-69:hash-table-set-fields����z����d���������������g��t-46961e518c-53������f��l-46961e518c-68������i��������z��zzzz����� ��de�������z��z�zzz�z������d����������g��if��d������dq�����ds������������z����d`�����������g�� struct-ref��d�������z����d �����������d}�����d������dP����������������������������z���d����g��%ht-associator-procedure�g��m-46961e518c-6f�g����f��l-46961e518c-71� �� i| ��z �zzzz������d���� ��� G���z �z�zzz�z�����d�������FG����f��l-46961e518c-74�f��l-46961e518c-75���i���z �zzzz����� �d����d�����z ��d`�������d���� ���!F G��"f��l-46961e518c-79�#f��l-46961e518c-7a�$"#��%i�$��&%z �zzzz����� �'d�&���(d�&���)%z ��*d)���+(*��,+��-d����.�-��/F.G��0f��l-46961e518c-7e�1f��l-46961e518c-7f�201��3i�2��43z �zzzz����� �5d�4���6d�4���7�3z ��8d�7���968��:9��;g��t-46961e518c-6e�<;��=f��l-46961e518c-83�>=��?i<>��@?z �zzzz����� �Ade@���B�?z �z�zzz�z�����Cd�B���DC��Ed�B���FdqB���GdsB���HGC��I�?z ��Jd`I���KFHJ��Ld�B���M?z ��NdM���OLCN��Pd}B���Qd�B���RdOI���SQR��TPCS��UEKOT��VADU��W�z ��XdW���Yg��ht-size�Zg��%ht-size-procedure�[g��m-46961e518c-8a�\[g��]\��^f��l-46961e518c-8c�_^��`i|]_��a\z`�zzzz������bd�a���c�b��dcG��e�z`�z�zzz�z�����fd�e���g�f��hFdgG��i\\��jf��l-46961e518c-8f�kf��l-46961e518c-90�ljk��mi�il��n\mz`�zzzz����� �od�n���pd�n���q�mz`��rd`q���spr��ts��ud�e���v�u��wFdvG��xf��l-46961e518c-94�yf��l-46961e518c-95�zxy��{i�iz��|\{z`�zzzz����� �}d�|���~d�|���{z`���d ����~��������d�e���������Fd�G���f��l-46961e518c-99��f��l-46961e518c-9a�������i�i����\�z`�zzzz����� ��d������d��������z`���d���������������g��t-46961e518c-89������f��l-46961e518c-9e������i�]����\�z`�zzzz����� ��de�������z`�z�zzz�z������d����������d������dq�����ds������������z`���d`�����������d�������z`���d �����������d}�����d������dY������������������������������z`���dZ�����g��ht-weakness��g��%ht-weakness-procedure��g��m-46961e518c-a5���g�������f��l-46961e518c-a7������i|������z��zzzz�������d������������G����z��z�zzz�z������d�����������F��G��������f��l-46961e518c-aa��f��l-46961e518c-ab�������i��������z��zzzz����� ��d������d��������z����d`��������������d�����������F��G���f��l-46961e518c-af��f��l-46961e518c-b0�������i��������z��zzzz����� ��d������d�������z����d ��������������d�����������F��G���f��l-46961e518c-b4��f��l-46961e518c-b5�������i��������z��zzzz����� ��d������d��������z����d���������������g��t-46961e518c-a4������f��l-46961e518c-b9������i��������z��zzzz����� ��de�������z��z�zzz�z������d����������d������dq�����ds������������z����d`�����������d�������z����d �����������d}�����d������d���������������������������z���d����g��*%hash-table-equivalence-function-procedure�g��m-46961e518c-c0�g���� f��l-46961e518c-c2� ��i| ��z�zzzz������ d����� ��G���z�z�zzz�z�����d�������FG����f��l-46961e518c-c5�f��l-46961e518c-c6���i���z�zzzz����� �d����d�����z��d`������� d����!� ��"F!G��#f��l-46961e518c-ca�$f��l-46961e518c-cb�%#$��&i�%��'&z�zzzz����� �(d�'���)d�'���*&z��+d *���,)+��-,��.d����/�.��0F/G��1f��l-46961e518c-cf�2f��l-46961e518c-d0�312��4i�3��54z�zzzz����� �6d�5���7d�5���8�4z��9d�8���:79��;:��<g��t-46961e518c-bf�=<��>f��l-46961e518c-d4�?>��@i=?��A@z�zzzz����� �BdeA���C�@z�z�zzz�z�����Dd�C���ED��Fd�C���GdqC���HdsC���IHD��J�@z��Kd`J���LGIK��Md�C���N@z��Od N���PMDO��Qd}C���Rd�C���SdJ���TRS��UQDT��VFLPU��WBEV��X�z��YdX���Zg��#%hash-table-hash-function-procedure�[g��m-46961e518c-db�\[g��]\��^f��l-46961e518c-dd�_^��`i|]_��a\z`�zzzz������bd�a���c�b��dcG��e�z`�z�zzz�z�����fd�e���g�f��hFdgG��i\\��jf��l-46961e518c-e0�kf��l-46961e518c-e1�ljk��mi�il��n\mz`�zzzz����� �od�n���pd�n���q�mz`��rd`q���spr��ts��ud�e���v�u��wFdvG��xf��l-46961e518c-e5�yf��l-46961e518c-e6�zxy��{i�iz��|\{z`�zzzz����� �}d�|���~d�|���{z`���d ����~��������d�e���������Fd�G���f��l-46961e518c-ea��f��l-46961e518c-eb�������i�i����\�z`�zzzz����� ��d������d��������z`���d���������������g��t-46961e518c-da������f��l-46961e518c-ef������i�]����\�z`�zzzz����� ��de�������z`�z�zzz�z������d����������d������dq�����ds������������z`���d`�����������d�������z`���d �����������d}�����d������d������������������������������z`���dZ�����g��each��GG��������G����G����G����g��%%set-fields��g��dummy��g��check?��g��expr����������g��m-46961e518c-f6���g�����������f��l-46961e518c-fb��f��l-46961e518c-fc��f��l-46961e518c-fd��f��l-46961e518c-fe��f��l-46961e518c-ff����������i����������f��l-46961e518c-f8������i|�����g��t-1e8ba8b5a-3c4��g��t-1e8ba8b5a-3c6��g��t-1e8ba8b5a-3c5��������g��m-1e8ba8b5a-3c7���g���������f��l-1e8ba8b5a-3cb��f��l-1e8ba8b5a-3cc��f��l-1e8ba8b5a-3cd��������i������f��l-1e8ba8b5a-3c1��f��l-1e8ba8b5a-3c2��f��l-1e8ba8b5a-3c3��������i��������z��z�zzz���� ��d��������z����d`�����dP�����dO�����dY�����d������d�����d��������������g��map����������g��list��g��ht-size!��g��%ht-size!-procedure��FGG���g��m-46961e518c-10a���g���g��t-46961e518c-108��g��t-46961e518c-109������������f��l-46961e518c-10f��f��l-46961e518c-110�������i����������f��l-46961e518c-10c������i|�������z��zzzz����� ��de�����g��t-1e8ba8b5a-3e6��g��t-1e8ba8b5a-3e7�������g��m-1e8ba8b5a-3e8���g�������f��l-1e8ba8b5a-3ec�f��l-1e8ba8b5a-3ed���i����g��setter�����f��l-1e8ba8b5a-3e0�f��l-1e8ba8b5a-3e1� f��l-1e8ba8b5a-3e2� ��i� ��^��� f��l-1e8ba8b5a-3d7�f��l-1e8ba8b5a-3d8� ��i���g��field-specs����f��l-1e8ba8b5a-3d3�f��l-1e8ba8b5a-3d4���i�����z��zzz����d����g��val�d�����d����dq���ds����� ��z���!d` ���"!��#g��struct-set!�$d#���%�z���&d %���'$&��(d}���)d����*d� ���+)*��,(+��-"',��.�-��/�z���0d�/���1g��equal?�2g��eqv?�3g��hashv�4g��string=?�5g��string-ci=?�6g��guess-hash-function�7g��reverse!�8g��keyword?�9g��without-keyword-args�:��;��<g��make-weak-key-hash-table�=g��make-weak-value-hash-table�>g��key-or-value�?g��make-doubly-weak-hash-table�@g��error�Af��Invalid weak hash table type�Bg�� guile-ht-ctor�Cg��assoc�DC��EC��Fg��assq�Gg��assv�Hg��equivalence-proc->associator�Ig��weakS�JI ��KJ��Lg��for-each�Mg��hashx-get-handle�Ng�� hashx-set!�Of��ht-value�Pg��ht-unspecified�Qg�� hashx-ref�Rf��Key not in table�Sg��hashx-create-handle!�Tg�� hashx-remove!�Ug�� hash-fold�Vg�� alist-cons�C�5�h�]�����]4 124575�4:�>��"��G���4;i4<i5�=>��"��G��4@ABEHKNOP������h(�������-�1�3���������C���������g�� hashx-proc '�g��ht-var '�g��args '��g��filenamef��srfi/srfi-69.scm� a �� d ��� ' ���C�h���d���] 4�5L�4?6\�������g��args �g��v ��g��filenamef��srfi/srfi-69.scm� a ��� ���CST�����h(���!��] 4�5$���O�@�6�������g��y '�g��tmp '��g��filenamef��srfi/srfi-69.scm� a ��� '��g�� documentationf��rInvoke HASHX-PROC, a `hashx-*' procedure taking a hash-function, assoc-function, and the hash-table as first args.�g�� macro-typeg��defmacro�g�� defmacro-argsg��args��C5AR4@UBEHKNVWXOYP�������hH�������-�1�3�4�5��4�5��4�5�����C����������g��bindings F�g��ht-var F�g�� body-forms F��g��filenamef��srfi/srfi-69.scm� i �� l �� l �� l �� m �� % l �� . n �� 6 l ��� F ���C�����h���d���] 4�5L�4?6\�������g��args �g��v ��g��filenamef��srfi/srfi-69.scm� i ��� ���CST�����h(�����] 4�5$���O�@�6� ������g��y '�g��tmp '��g��filenamef��srfi/srfi-69.scm� i ��� '��g�� documentationf��fBind BINDINGS to the hash-function, associator, and real-table of HT-VAR, while evaluating BODY-FORMS.�g�� macro-typeg��defmacro�g�� defmacro-argsg��args��C5URZ�������h ���o���-�.�,�3�#��L��6��g�������g��obj �g��size ��g��filenamef��srfi/srfi-69.scm� z �� { ��� ���C������h�����]�O�C��������������g��hash-fn ��g��filenamef��srfi/srfi-69.scm� w ��� ��g��nameg��caller-with-default-size�g�� documentationf��nAnswer a function that makes `most-positive-fixnum' the default second argument to HASH-FN, a 2-arg procedure.��C[R4[i]56R^i/R4[i_i50R`�����h�����]���C�����������g�� real-table �g�� associator �g��size �g��weakness �g��equivalence-function �g�� hash-function ��g��filenamef��srfi/srfi-69.scm� �� ��� ��g��nameg��"%make-srfi-69-hash-table-procedure��CaR4@bBEc����h�������]��C������������g��t-46961e518c-2b �g��t-46961e518c-2c �g��t-46961e518c-2d �g��t-46961e518c-2e �g��t-46961e518c-2f �g��t-46961e518c-30 �� ���C��b�����h���T���]L�6����L�������g��a ��g��filenamef��srfi/srfi-69.scm� �� ��� ���CF���h���D���]�L�6<�������g��filenamef��srfi/srfi-69.scm� �� ��� ���C�����h������]�C���������� ���CST��������hp�������]4�5$��@4�5$���O�@4�5$��4�O�?$��@ �6 �6��}�������g��x n�g��tmp n�g��tmp " n�g��tmp > n��g��filenamef��srfi/srfi-69.scm� �� ��� n���C5bR `���4�`>��"��G��� �ai���`R`��h���x���]��$�����CC������p�������g��obj ��g��filenamef��srfi/srfi-69.scm� �� ��� ��g��nameg��%hash-table?-procedure��CR4@BEz��������h���7���]��C������/�������g��t-46961e518c-47 �� ���C��������h���T���]L�6����L�������g��a ��g��filenamef��srfi/srfi-69.scm� �� ��� ���CF���h���D���]�L�6<�������g��filenamef��srfi/srfi-69.scm� �� ��� ���C|�����h������]�C���������� ���CST��������hp�������]4�5$��@4�5$���O�@4�5$��4�O�?$��@ �6 �6��}�������g��x n�g��tmp n�g��tmp " n�g��tmp > n��g��filenamef��srfi/srfi-69.scm� �� ��� n���C5R`P���h���x���]��&��� �C�6p�������g��s ��g��filenamef��srfi/srfi-69.scm� �� ��� ��g��nameg��%ht-real-table-procedure��C�R4@PBE��������h���:���]��C�����2�������g��err �g��s �� ���C����h���:���]��C�����2�������g��err �g��s �� ���C����h���:���]��C�����2�������g��err �g��s �� ���C����h���7���]��C������/�������g��t-46961e518c-53 �� ���C��P������h���T���]L�6����L�������g��a ��g��filenamef��srfi/srfi-69.scm� �� ��� ���CF���h���D���]�L�6<�������g��filenamef��srfi/srfi-69.scm� �� ��� ���C�����h������]�C���������� ���CST��������h��������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$���O�@4�5$��4 �O�?$��@�6�6�������������g��x ���g��tmp ���g��tmp "���g��tmp 9���g��tmp P���g��tmp g���g��tmp ������g��filenamef��srfi/srfi-69.scm� �� ��� �����C5PR`O�������h���x���]��&����C�6p�������g��s ��g��filenamef��srfi/srfi-69.scm� �� ��� ��g��nameg��%ht-associator-procedure��CR4@OBE�����h���:���]��C�����2�������g��err �g��s �� ���C!',�h���:���]��C�����2�������g��err �g��s �� ���C/5:�h���:���]��C�����2�������g��err �g��s �� ���CV����h���7���]��C������/�������g��t-46961e518c-6e �� ���C��O������h���T���]L�6����L�������g��a ��g��filenamef��srfi/srfi-69.scm� �� ��� ���CF���h���D���]�L�6<�������g��filenamef��srfi/srfi-69.scm� �� ��� ���CX�����h������]�C���������� ���CST��������h��������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$���O�@4�5$��4 �O�?$��@�6�6�������������g��x ���g��tmp ���g��tmp "���g��tmp 9���g��tmp P���g��tmp g���g��tmp ������g��filenamef��srfi/srfi-69.scm� �� ��� �����C5OR`Y������h ���r���]��&��� �C�6�������j�������g��s ��g��filenamef��srfi/srfi-69.scm� �� ��� ��g��nameg��%ht-size-procedure��CZR4@YBEhot��h���:���]��C�����2�������g��err �g��s �� ���Cw}��h���:���]��C�����2�������g��err �g��s �� ���C����h���:���]��C�����2�������g��err �g��s �� ���C�����h���7���]��C������/�������g��t-46961e518c-89 �� ���C��Y�����h���T���]L�6����L�������g��a ��g��filenamef��srfi/srfi-69.scm� �� ��� ���CF���h���D���]�L�6<�������g��filenamef��srfi/srfi-69.scm� �� ��� ���C������h������]�C���������� ���CST��������h��������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$���O�@4�5$��4 �O�?$��@�6�6�������������g��x ���g��tmp ���g��tmp "���g��tmp 9���g��tmp P���g��tmp g���g��tmp ������g��filenamef��srfi/srfi-69.scm� �� ��� �����C5YR`������h ���v���]��&��� �C�6�������n�������g��s ��g��filenamef��srfi/srfi-69.scm� �� ��� ��g��nameg��%ht-weakness-procedure��C�R4@�BE���������h���:���]��C�����2�������g��err �g��s �� ���C����h���:���]��C�����2�������g��err �g��s �� ���C����h���:���]��C�����2�������g��err �g��s �� ���C����h���7���]��C������/�������g��t-46961e518c-a4 �� ���C��������h���T���]L�6����L�������g��a ��g��filenamef��srfi/srfi-69.scm� �� ��� ���CF���h���D���]�L�6<�������g��filenamef��srfi/srfi-69.scm� �� ��� ���C�����h������]�C���������� ���CST��������h��������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$���O�@4�5$��4 �O�?$��@�6�6�������������g��x ���g��tmp ���g��tmp "���g��tmp 9���g��tmp P���g��tmp g���g��tmp ������g��filenamef��srfi/srfi-69.scm� �� ��� �����C5�R`������h �������]��&��� �C�6���������������g��s ��g��filenamef��srfi/srfi-69.scm� �� ��� ��g��nameg��*%hash-table-equivalence-function-procedure��CR4@BE���h���:���]��C�����2�������g��err �g��s �� ���C"(-�h���:���]��C�����2�������g��err �g��s �� ���C06;�h���:���]��C�����2�������g��err �g��s �� ���CW����h���7���]��C������/�������g��t-46961e518c-bf �� ���C��������h���T���]L�6����L�������g��a ��g��filenamef��srfi/srfi-69.scm� �� ��� ���CF���h���D���]�L�6<�������g��filenamef��srfi/srfi-69.scm� �� ��� ���CY�����h������]�C���������� ���CST��������h��������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$���O�@4�5$��4 �O�?$��@�6�6�������������g��x ���g��tmp ���g��tmp "���g��tmp 9���g��tmp P���g��tmp g���g��tmp ������g��filenamef��srfi/srfi-69.scm� �� ��� �����C5R`�������h �������]��&��� �C�6�������{�������g��s ��g��filenamef��srfi/srfi-69.scm� �� ��� ��g��nameg��#%hash-table-hash-function-procedure��CZR4@BEhot��h���:���]��C�����2�������g��err �g��s �� ���Cw}��h���:���]��C�����2�������g��err �g��s �� ���C����h���:���]��C�����2�������g��err �g��s �� ���C�����h���7���]��C������/�������g��t-46961e518c-da �� ���C��������h���T���]L�6����L�������g��a ��g��filenamef��srfi/srfi-69.scm� �� ��� ���CF���h���D���]�L�6<�������g��filenamef��srfi/srfi-69.scm� �� ��� ���C������h������]�C���������� ���CST��������h��������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$���O�@4�5$��4 �O�?$��@�6�6�������������g��x ���g��tmp ���g��tmp "���g��tmp 9���g��tmp P���g��tmp g���g��tmp ������g��filenamef��srfi/srfi-69.scm� �� ��� �����C5R4@�BE�������h ���v���]45�����C���n�������g��dummy �g��check? �g��s �g��getter �g��expr �� ���CST���h(�������] 4�5$��@�6��������������g��x "�g��tmp "��g��filenamef��srfi/srfi-69.scm� �� ��� "��g�� macro-typeg��syntax-rules�g��patternsg��check?g��sg��getterg��expr�g��...���C5�R`��������h �������]��&��� �C�6�����|�������g��s �g��val ��g��filenamef��srfi/srfi-69.scm� �� ��� ��g��nameg��%ht-size!-procedure��C�R4@�BE�.���h���V���]��C����N�������g��t-46961e518c-108 �g��t-46961e518c-109 �� ���C���������h���T���]L�6����L�������g��a ��g��filenamef��srfi/srfi-69.scm� �� ��� ���CF���h���D���]�L�6<�������g��filenamef��srfi/srfi-69.scm� �� ��� ���C0�����h������]�C���������� ���CST��������hp�������]4�5$��@4�5$���O�@4�5$��4�O�?$��@ �6 �6��}�������g��x n�g��tmp n�g��tmp " n�g��tmp > n��g��filenamef��srfi/srfi-69.scm� �� ��� n���C5�R1]q_23435/�������h@�����]�&��C�&��C�&��C�&��C �&�� CC������������g�� equal-proc <��g��filenamef��srfi/srfi-69.scm� �� �� �� ��� <��g��nameg��guess-hash-function�g�� documentationf��lGuess a hash function for EQUAL-PROC, falling back on `hash', as specified in SRFI-69 for `make-hash-table'.��C6R78W�hP������]"��?(��64455$����"���45��"����"����������g�� rest-list P�g��acc E�g�� rest-list E��g��filenamef��srfi/srfi-69.scm� �� �� �� �� �� �� �� �� �� �� �� �� �� �� "�� �� '�� �� 0�� �� 1�� �� :�� �� =�� 1�� E�� �� E�� �� F�� �� P�� ��� P��g��nameg��without-keyword-args�g�� documentationf��MAnswer REST-LIST with all keywords removed along with items that follow them.��C9R;�<�=>?@A� h@�������]��$��C��$��C��$��C��$��C �6���������������g��weakness 9��g��filenamef��srfi/srfi-69.scm� �� �� �� �� 5�� �� 9�� ��� 9��g��nameg�� guile-ht-ctor�g�� documentationf��7Answer the Guile HT constructor for the given WEAKNESS.��CBR14EqF2GC���h���s���]�L�6����k�������g��item �g��alist ��g��filenamef��srfi/srfi-69.scm� �� �� �� ��� ���C� �h@�����]�&��"����$��C�&��C�&��C�O�C�������������g�� equal-proc 9��g��filenamef��srfi/srfi-69.scm� �� �� �� �� �� �� �� �� �� ��� 9��g��nameg��equivalence-proc->associator�g�� documentationf��^Answer an `assoc'-like procedure that compares the argument key to alist keys with EQUAL-PROC.��CHRK16B9H`�������hh������-��/����0��2��3��#���#�� 4�5#��44545?4�5 ���C��������g�� equal-proc g�g�� hash-proc g�g��weak g�g�� guile-opts g�g�� real-table R g�g�� associator R g��g��filenamef��srfi/srfi-69.scm� �� �� )�� �� ;�� �� <�� �� C�� �� K�� �� L�� �� R�� ��� g g��weakS ����g��nameg��make-hash-table�g�� documentationf���Answer a new hash table using EQUAL-PROC as the comparison function, and HASH-PROC as the hash function. See the reference manual for specifics, of which there are many.��CR`YOPLMN����h0�������] 4LLL��5$��CM��N�LLL����6���������g��pair /�g��handle /��g��filenamef��srfi/srfi-69.scm� �� �� �� �� �� =�� �� �� �� �� �� �� �� &�� �� �� *�� '�� -�� 2�� /�� ��� /���C�������h�������-�1�3�4?�&�� �"�� 45H�&�� �"�� 45�&���"�� 45�&�� �"�� 454 O��>��"��G��J�&�� �"��4 >��"��G��C��������g��alist ���g��mht-args ���g��result ���g��size -���g�� hash-proc ~���g�� associator ~���g�� real-table ~���g��val ������g��filenamef��srfi/srfi-69.scm� �� �� �� �� �� �� �� �� -�� �� ~�� ������ ������ ��� �� ��g��nameg��alist->hash-table�g�� documentationf��4Convert ALIST to a hash table created with MHT-ARGS.��CRO�PRQ`OPPW@R��������h�������-�1�3�4��&�� � �"�� 4�5��&����"�� 4�5��&��� �"�� 4�55&���$�� 456� �6C�������g��ht ���g��key ���g��default-thunk-lst ���g��result a����g��filenamef��srfi/srfi-69.scm� �� �� �� �� a�� �� k�� �� n�� �� r�� �� s�� �� {�� �� �� ������ ��� �� ��g��nameg��hash-table-ref�g�� documentationf���Lookup KEY in HT and answer the value, invoke DEFAULT-THUNK if KEY isn't present, or signal an error if DEFAULT-THUNK isn't provided.��C RQ`OP���h`�����]��&�� � �"�� 4�5��&����"�� 4�5��&��� �"�� 4�56��������������g��ht Y�g��key Y�g��default Y��g��filenamef��srfi/srfi-69.scm� �� �� Y�� ��� Y ��g��nameg��hash-table-ref/default�g�� documentationf��LLookup KEY in HT and answer the value. Answer DEFAULT if KEY isn't present.��C!RS`OPPY�� �h����@��]4��&�� � �"�� 4�5��&����"�� 4�5��&��� �"�� 4�55�&��N��&�� � �"�� 4�5���&��� �"��4� >��"��G��"����C���8������g��ht ���g��key ���g�� new-value ���g��handle Z���g��val ������g��filenamef��srfi/srfi-69.scm� �� �� �� �� Z�� �� a�� �� e�� �� h�� ������ ������ ������ ��� �� ��g��nameg��hash-table-set!�g�� documentationf��Set KEY to NEW-VALUE in HT.��C"R`OPMY�T� �h����G��]"��&�� � �"�� 4�5��&����"�� 4�5��&��� �"�� 4�545$��f��&�� � �"�� 4�5���&��� �"��4�>��"��G��4 >��"��G��"���C�������?������g��ht ���g��key ���g��h Q���g��a Q���g��real-ht Q���g��val ������g��filenamef��srfi/srfi-69.scm� �� �� Q�� �� X�� �� h�� �� k�� ������ ������ ������ ��� �� ��g��nameg��hash-table-delete!�g�� documentationf��Remove KEY's association in HT.��C#RM`OP����h`�������]4��&�� � �"�� 4�5��&����"�� 4�5��&��� �"�� 4�55$��CC��������g��ht `�g��key `��g��filenamef��srfi/srfi-69.scm� �� �� � �� \� ��� ` ��g��nameg��hash-table-exists?�g�� documentationf��"Return whether KEY is a key in HT.��C$R`OPMN@RY�������h�����-�1�3� ��&�� � �"�� 4�5��&����"�� 4�5��&��� �"�� 4�545$��4�5�"���4�$��44�5�5"��4 �5>��"��G����&�� � �"�� 4� 5���&��� �"��4�>��"��G��C������������g��ht �g��key �g��modifier �g��default-thunk-lst �g�� hash-proc X�g�� associator X�g�� real-table X�g��handle k�g��val ���� g��filenamef��srfi/srfi-69.scm� �� X �� _ �� k �� s �� v �� { (�� } �� ~ ���� ���� ���� ���� ���� '���� (���� '���� ���� ���� $���� ���� ���� ���� ���� ��� ��g��nameg��hash-table-update!�g�� documentationf���Modify HT's value at KEY by passing its value to MODIFIER and setting it to the result thereof. Invoke DEFAULT-THUNK for the old value if KEY isn't in HT, or signal an error if DEFAULT-THUNK is not provided.��C%R%�h���D���]�L�C���<�������g��filenamef��srfi/srfi-69.scm� &��� ���C�h���^��]�O�6�����V������g��ht �g��key �g��modifier �g��default ��g��filenamef��srfi/srfi-69.scm� �� ��� ��g��nameg��hash-table-update!/default�g�� documentationf���Modify HT's value at KEY by passing its old value, or DEFAULT if it doesn't have one, to MODIFIER, and setting it to the result thereof.��C&R`�+��h���}���]�C��u�������g��k �g��v �g��ans ��g��filenamef��srfi/srfi-69.scm� ! �� ! ,��� ���CY�����hH���-��]��&�� � �"�� 4�5$�� � 6��&��� �C�6�������%������g��ht A��g��filenamef��srfi/srfi-69.scm� �� �� ! �� *! �� -" ��� A��g��nameg��hash-table-size�g�� documentationf���Return the number of associations in HT. This is guaranteed O(1) for tables where #:weak was #f or not specified at creation time.��C'R+���h���}���]��Cu�������g��k �g��v �g��lst ��g��filenamef��srfi/srfi-69.scm� & �� & (��� ���C��������h�������]�6�������������g��ht ��g��filenamef��srfi/srfi-69.scm� $ �� & 6�� & ��� ��g��nameg��hash-table-keys�g�� documentationf�� Return a list of the keys in HT.��C(R+h���}���]�Cu�������g��k �g��v �g��lst ��g��filenamef��srfi/srfi-69.scm� * �� * (��� ���C��������h�������]�6�������������g��ht ��g��filenamef��srfi/srfi-69.scm� ( �� * 6�� * ��� ��g��nameg��hash-table-values�g�� documentationf��"Return a list of the values in HT.��C)R+����h�������]4L��>��GC���������g��k �g��v �g��unspec �g��vals ��g��filenamef��srfi/srfi-69.scm� . �� / 5�� / ��� ���C��h�������]�O�6��������g��ht �g��proc ��g��filenamef��srfi/srfi-69.scm� , �� . ��� ��g��nameg��hash-table-walk�g�� documentationf��3Call PROC with each key and value as two arguments.��C*RU`P���h(���Z��]��&��� �"�� 4�56����R������g��ht $�g��f $�g��knil $��g��filenamef��srfi/srfi-69.scm� 3 �� 7 �� $7 ��� $ ��g��nameg��hash-table-fold�g�� documentationf���Invoke (F KEY VAL PREV) for each KEY and VAL in HT, where PREV is the result of the previous invocation, using KNIL as the first PREV. Answer the final F result.��C+R+V��h�������]�6�������������g��ht ��g��filenamef��srfi/srfi-69.scm� 9 �� ; !�� ; ��� ��g��nameg��hash-table->alist�g�� documentationf��Return an alist for HT.��C,R`OP'�BUN������h���}���]LLL��6u�������g��k �g��v �g��ign ��g��filenamef��srfi/srfi-69.scm� B �� B #��� ���C������h�������]9��&�� � �"�� 4�5��&����"�� 4�5��&��� �"�� 4�54�5��&�� � �"�� 4�544554 O�>��"��G����&�� � �"�� 4�5��C�������g��ht ���g��h Q���g��a Q���g��real-ht Q���g��size ^���g��weak {���g��new-real-ht �����g��equivalence-function ������g��filenamef��srfi/srfi-69.scm� = �� Q? �� X@ �� ^@ �� c@ -�� {@ �� ~A �� A ����A ����@ ����B ����F ����D ��� ����g��nameg��hash-table-copy�g�� documentationf��Answer a copy of HT.��C-R+"�����h���}���]L��6����u�������g��k �g��v �g��ign ��g��filenamef��srfi/srfi-69.scm� L �� L ��� ���C��������h �����]4��O�>��"��G���C���������g��ht �g��other-ht ��g��filenamef��srfi/srfi-69.scm� H �� K ��� ��g��nameg��hash-table-merge!�g�� documentationf��`Add all key/value pairs from OTHER-HT to HT, overriding HT's mappings where present. Return HT.��C.RC�����������g��m 4�g��rtd ����g��filenamef��srfi/srfi-69.scm� D �� 5 Z �� : Z �� B Z &�� G Z ��� w ��� } �� } �� ���� ���� �� S�� ��3��� ��5��� ��78�� ��9Q�� ��;��� ��?��� ��?��� +��?��� ��?��� ��A��� ��C��� ��E��� ��G��� ��II�� ��M� ��Oi ��Q� ��S$ ��Tw( ��V/, ��W�3 ��X�9 ��[�= ��]�H ���% ]� ���C6�