GOOF----LE-8-2.0+� ]� 4 h�X ] g guile� � g define-module*� � � g web� g uri� � g filenameS�
f web/uri.scm� g importsS� g srfi�
g srfi-9�
� � g ice-9� g regex� � � g rdelim� � � g control� � � g rnrs� g bytevectors� � � g binary-ports� � � ! � "g exportsS� #g uri?� $g
uri-scheme� %g uri-userinfo� &g uri-host� 'g uri-port� (g uri-path� )g uri-query� *g uri-fragment� +g build-uri� ,g declare-default-port!� -g string->uri� .g uri->string� /g
uri-decode� 0g
uri-encode� 1g split-and-decode-uri-path� 2g encode-and-join-uri-path� 3#$%&'()*+,-./012 � 4g set-current-module� 54 � 64 � 7g <uri>� 8g %make-uri-procedure� 9g make-syntax-transformer� :9 � ;9 � <g make-uri� =g macro� >g $sc-dispatch� ?> � @> � Ag _� Bg any� CABBBBBBB � Dg
syntax-object� Eg lambda� Fg m-50eea-a� Gg top� HFG � Ig ribcage� Jg t-50eea-3� Kg t-50eea-4� Lg t-50eea-5� Mg t-50eea-6� Ng t-50eea-7� Og t-50eea-8� Pg t-50eea-9� QJKLMNOP � RHHHHHHH � Sf l-50eea-f� Tf
l-50eea-10� Uf
l-50eea-11� Vf
l-50eea-12� Wf
l-50eea-13� Xf
l-50eea-14� Yf
l-50eea-15� ZSTUVWXY � [IQRZ � \I � ]g x� ^] � _H � `f l-50eea-c� a` � bI^_a � cg shift� dg proc-name� eg args� fde � gG � hgg � if l-1e8ba8b5a-2ba� jf l-1e8ba8b5a-2bb� kij � lIfhk � mg key� ng value� og name� pg formals� qg body� rmnopq � sggggg � tf l-1e8ba8b5a-2ad� uf l-1e8ba8b5a-2ae� vf l-1e8ba8b5a-2af� wf l-1e8ba8b5a-2b0� xf l-1e8ba8b5a-2b1� ytuvwx � zIrsy � {g make-procedure-name� |{ � }g � ~f l-1e8ba8b5a-29d� ~ � �I|} � �g � �f l-1e8ba8b5a-29c� �� � �I^�� � �H[\bc\\\\lz��
� �g hygiene� ��
� �DE�� � �g scheme� �g[\b � �� � �D��� � �g userinfo� �D��� � �g host� �D��� � �g port� �D��� � �g path� �D��� � �g query� �D��� � �g fragment� �D��� � �������� � �g make-struct� �g m-50eea-1� ��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�h� � �g form� �g type-name� �g constructor-spec� �g field-names� ����� � �gggg � �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� ��������� � �gggggggg � �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^�� � ��[\bc\�\\\��\��� � �D��� � �D7�� � �D
�� � �����������
� ���� � �g each-any� �Aތ� �g syntax-violation� �� � �� � �f Wrong number of arguments� �g identifier?� �� � �� � �g\b � �D8�� � �� � �� � �f -source expression failed to match any pattern� �g record-type-vtable� �� � �� � �g pwpwpwpwpwpwpw� �g default-record-printer� �� � �� � �������� � �g set-struct-vtable-name!� �� � �� � �g vtable-offset-user� �� � �� � �g %uri?-procedure� �AB � �g
m-50eea-23� ��G � �g
t-50eea-22� �� � � �f
l-50eea-28� �I� �f
l-50eea-25� �I^ ��\c\\\\lz��
�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�f l-1e8ba8b5a-486�f l-1e8ba8b5a-487�f l-1e8ba8b5a-488�f l-1e8ba8b5a-489� �I �g copier-id� � f l-1e8ba8b5a-476�! �"I�! �#g ctor-name�$# �%f l-1e8ba8b5a-46e�&% �'I$�& �(� �)f l-1e8ba8b5a-46c�*) �+I(�* �,g layout�-, �.f l-1e8ba8b5a-46a�/. �0I-�/ �1g
immutable?�21 �3f l-1e8ba8b5a-468�43 �5I2�4 �6g field-count�76 �8f l-1e8ba8b5a-466�98 �:I7�9 �;g
getter-ids�<; �=f l-1e8ba8b5a-463�>= �?I<�> �@g field-ids�A@ �Bf l-1e8ba8b5a-460�CB �DIA�C �Eg predicate-name�Fg
field-spec�G1���EF �Hgggggg �If l-1e8ba8b5a-453�Jf l-1e8ba8b5a-454�Kf l-1e8ba8b5a-455�Lf l-1e8ba8b5a-456�Mf l-1e8ba8b5a-457�Nf l-1e8ba8b5a-458�OIJKLMN �PIGHO �Q�\c\\\\\"\'\+\0\5\:\?\DP�� �RD Q� �SR �Tg and�UDTQ� �Vg struct?�WDVQ� �XWR �Yg eq?�ZDYQ� �[g
struct-vtable�\D[Q� �]\R �^g\ �_D7^� �`Z]_ �aUX` �bSa �cg\ �dD�c� �eg throw-bad-struct�fe �ge �hg %uri-scheme-procedure�ig free-id�jg
%%on-error�kg
m-50eea-2f�lkG �ml �nf
l-50eea-31�on �pI^mo �ql\pc\\\\lz�� �rDjq� �sir �tsB �ug %%type�vg t-1e8ba8b5a-3a5�wg t-1e8ba8b5a-3a6�xg t-1e8ba8b5a-3a7�yg t-1e8ba8b5a-3a8�zg t-1e8ba8b5a-3a9�{g t-1e8ba8b5a-3aa�|g t-1e8ba8b5a-3ab�}vwxyz{| �~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�h� ���; ��ggg ��f l-1e8ba8b5a-39e��f l-1e8ba8b5a-39f��f l-1e8ba8b5a-3a0����� ��I��� ���\pc\�\\\�\��� ��Du�� ��i� ��At�B ��g ck��g err��g s���� ��ll ��f
l-50eea-34��f
l-50eea-35���� ��I��� ��l�\pc\\\\lz��
��D��� ��g quote��D��� ��g�\p ��D7�� ���� ��� ��g %%index��D��� ��i� ��At�B ��f
l-50eea-39��f
l-50eea-3a���� ��I��� ��l�\pc\\\\lz��
��D��� ��D��� ���\p ��D
�� ���� ��� ��g %%copier��D��� ��i� ��At�B ��f
l-50eea-3e��f
l-50eea-3f���� ��I��� ��l�\pc\\\\lz��
��D��� ��D��� ��g %%<uri>-set-fields��g�\p ��D��� ���� ��� ��g
t-50eea-2e��� ��f
l-50eea-43��� ��I�m� ��l�\pc\\\\lz��
��DE�� ����\pc\�\\\�\��� ��D��� ��� ��g if��D��� ��DY�� ��D[�� ���� ��g�\p ��D7�� ����� ��g
struct-ref��D��� ���\p ��D
�� ����� ��De�� ��D��� ��D$�� ���� ����� ������ ����� ��g\p ��Dh�� ��g %uri-userinfo-procedure��g
m-50eea-4a���G ��� ��f
l-50eea-4c��� ��I^�� ���\�c\\\\lz�� ��Dj�� ��i� ���B ���\�c\�\\\�\��� ��Du�� ��i� ��A��B ���� ��f
l-50eea-4f��f
l-50eea-50���� ��I��� � ��\�c\\\\lz��
�D� � �D� � �g�\� �D7� � � �D��� �i � A�B �
f
l-50eea-54�f
l-50eea-55�
�
I�� ��
\�c\\\\lz��
�D�� �D�� �
\� �D� � � �D��� �i �A�B �f
l-50eea-59�f
l-50eea-5a� �I�� ��\�c\\\\lz��
�D�� �D�� �g\� � D�� �! �"! �#g
t-50eea-49�$# �%f
l-50eea-5e�&% �'I$�& �(�'\�c\\\\lz��
�)DE(� �*�'\�c\�\\\�\��� �+D�*� �,+ �-D�*� �.DY*� �/D[*� �0/+ �1g'\� �2D71� �3.02 �4D�*� �5'\� �6D5� �74+6 �8De*� �9D�*� �:D%1� �;9: �<8+; �=-37< �>),= �?g\� �@D�?� �Ag %uri-host-procedure�Bg
m-50eea-65�CBG �DC �Ef
l-50eea-67�FE �GI^DF �HC\Gc\\\\lz�� �IDjH� �JiI �KJB �L�\Gc\�\\\�\��� �MDuL� �NiM �OAKNB �PCC �Qf
l-50eea-6a�Rf
l-50eea-6b�SQR �TI�PS �UCT\Gc\\\\lz��
�VD�U� �WD�U� �XgT\G �YD7X� �ZWY �[Z �\D�L� �]i\ �^AK]B �_f
l-50eea-6f�`f
l-50eea-70�a_` �bI�Pa �cCb\Gc\\\\lz��
�dD�c� �eD�c� �fb\G �gD f� �heg �ih �jD�L� �kij �lAKkB �mf
l-50eea-74�nf
l-50eea-75�omn �pI�Po �qCp\Gc\\\\lz��
�rD�q� �sD�q� �tgp\G �uD�t� �vsu �wv �xg
t-50eea-64�yx �zf
l-50eea-79�{z �|IyD{ �}C|\Gc\\\\lz��
�~DE}� ��|\Gc\�\\\�\��� ��D�� ��� ��D�� ��DY� ��D[� ���� ��g|\G ��D7�� ����� ��D�� ��|\G ��D �� ����� ��De� ��D�� ��D&�� ���� ����� ������ ��~�� ��g\G ��DA�� ��g %uri-port-procedure��g
m-50eea-80���G ��� ��f
l-50eea-82��� ��I^�� ���\�c\\\\lz�� ��Dj�� ��i� ���B ���\�c\�\\\�\��� ��Du�� ��i� ��A��B ���� ��f
l-50eea-85��f
l-50eea-86���� ��I��� ����\�c\\\\lz��
��D��� ��D��� ��g�\� ��D7�� ���� ��� ��D��� ��i� ��A��B ��f
l-50eea-8a��f
l-50eea-8b���� ��I��� ����\�c\\\\lz��
��D��� ��D��� ���\� ��D �� ���� ��� ��D��� ��i� ��A��B ��f
l-50eea-8f��f
l-50eea-90���� ��I��� ����\�c\\\\lz��
��D��� ��D��� ��g�\� ��D��� ���� ��� ��g
t-50eea-7f��� ��f
l-50eea-94��� ��I��� ����\�c\\\\lz��
��DE�� ����\�c\�\\\�\��� ��D��� ��� ��D��� ��DY�� ��D[�� ���� ��g�\� ��D7�� ����� ��D��� ���\� ��D �� ����� ��De�� ��D��� ��D'�� ���� ����� ������ ����� ��g\� ��D��� ��g %uri-path-procedure��g
m-50eea-9b���G ��� ��f
l-50eea-9d��� ��I^�� ���\�c\\\\lz�� ��Dj�� ��i� ���B ���\�c\�\\\�\��� ��Du�� ��i� ��A��B ���� ��f
l-50eea-a0��f
l-50eea-a1���� ��I��� ����\�c\\\\lz��
� D��� �D��� �g�\� �D7� � � �D��� �i �A�B � f
l-50eea-a5�
f
l-50eea-a6�
�I�� �
�\�c\\\\lz��
�D�
� �D�
� �\� �D � � � �D��� �i �A�B �f
l-50eea-aa�f
l-50eea-ab� �I�� ��\�c\\\\lz��
�D�� �D�� �g\� �D�� � �! �"g
t-50eea-9a�#" �$f
l-50eea-af�%$ �&I#�% �'�&\�c\\\\lz��
�(DE'� �)�&\�c\�\\\�\��� �*D�)� �+* �,D�)� �-DY)� �.D[)� �/.* �0g&\� �1D70� �2-/1 �3D�)� �4&\� �5D 4� �63*5 �7De)� �8D�)� �9D(0� �:89 �;7*: �<,26; �=(+< �>g\� �?D�>� �@g %uri-query-procedure�Ag
m-50eea-b6�BAG �CB �Df
l-50eea-b8�ED �FI^CE �GB\Fc\\\\lz�� �HDjG� �IiH �JIB �K�\Fc\�\\\�\��� �LDuK� �MiL �NAJMB �OBB �Pf
l-50eea-bb�Qf
l-50eea-bc�RPQ �SI�OR �TBS\Fc\\\\lz��
�UD�T� �VD�T� �WgS\F �XD7W� �YVX �ZY �[D�K� �\i[ �]AJ\B �^f
l-50eea-c0�_f
l-50eea-c1�`^_ �aI�O` �bBa\Fc\\\\lz��
�cD�b� �dD�b� �ea\F �fD e� �gdf �hg �iD�K� �jii �kAJjB �lf
l-50eea-c5�mf
l-50eea-c6�nlm �oI�On �pBo\Fc\\\\lz��
�qD�p� �rD�p� �sgo\F �tD�s� �urt �vu �wg
t-50eea-b5�xw �yf
l-50eea-ca�zy �{IxCz �|B{\Fc\\\\lz��
�}DE|� �~�{\Fc\�\\\�\��� �D�~� �� ��D�~� ��DY~� ��D[~� ��� ��g{\F ��D7�� ����� ��D�~� ��{\F ��D �� ���� ��De~� ��D�~� ��D)�� ���� ���� ������ ��}�� ��g\F ��D@�� ��g %uri-fragment-procedure��g
m-50eea-d1���G ��� ��f
l-50eea-d3��� ��I^�� ���\�c\\\\lz�� ��Dj�� ��i� ���B ���\�c\�\\\�\��� ��Du�� ��i� ��A��B ���� ��f
l-50eea-d6��f
l-50eea-d7���� ��I��� ����\�c\\\\lz��
��D��� ��D��� ��g�\� ��D7�� ���� ��� ��D��� ��i� ��A��B ��f
l-50eea-db��f
l-50eea-dc���� ��I��� ����\�c\\\\lz��
��D��� ��D��� ���\� ��D �� ���� ��� ��D��� ��i� ��A��B ��f
l-50eea-e0��f
l-50eea-e1���� ��I��� ����\�c\\\\lz��
��D��� ��D��� ��g�\� ��D��� ���� ��� ��g
t-50eea-d0��� ��f
l-50eea-e5��� ��I��� ����\�c\\\\lz��
��DE�� ����\�c\�\\\�\��� ��D��� ��� ��D��� ��DY�� ��D[�� ���� ��g�\� ��D7�� ����� ��D��� ���\� ��D �� ����� ��De�� ��D��� ��D*�� ���� ����� ������ ����� ��g\� ��D��� ��g each��BB ���� ��B쌤�B팤�B�g %%set-fields��g dummy��g check?��g expr������� ��g
m-50eea-ec���G ������� ��f
l-50eea-f1��f
l-50eea-f2��f
l-50eea-f3��f
l-50eea-f4��f
l-50eea-f5������� ��I��� ��� � f
l-50eea-ee� �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�� ���\c\\\\��
�D�� �g�\ �D7� �D$� �D%� �D&� �D'� �D(� �D)� �D*� � � g map�! �" �#g list�$g
absolute-uri?�%g throw�&g uri-error�'g number?�(g exact?�)g integer?�*g positive-exact-integer?�+g string?�,g string-null?�-g
string-ref�.f 3Expected path of absolute URI to start with a /: ~a�/f Expected string for path: ~s�0f Expected string for userinfo: ~s�1g valid-host?�2f Expected valid host: ~s�3f "Expected port to be an integer: ~s�4f 'Expected a host, given userinfo or port�5f (Expected a symbol for the URI scheme: ~s�6g validate-uri�7g userinfoS�87��9g hostS�:9 ��;g portS�<; ��=g pathS�>= ��?g queryS�@? ��Ag fragmentS�BA ��Cg validate?S�DC ��E8:<>@BD �Ff �Gg make-regexp�Hf ^([0-9.]+)$�Ig ipv4-regexp�Jf ^([0-9a-fA-F:.]+)$�Kg ipv6-regexp�Lf (^[a-zA-Z0-9]([a-zA-Z0-9-]*[a-zA-Z0-9])?$�Mg domain-label-regexp�Nf %^[a-zA-Z]([a-zA-Z0-9-]*[a-zA-Z0-9])?$�Og top-label-regexp�Pg regexp-exec�Qg catch�RQ �SQ �Tg inet-pton�Ug AF_INET�Vg AF_INET6�Wg string-index�Xg substring�Yf [a-zA-Z0-9_.!~*'();:&=+$,-]+�Zg userinfo-pat�[f [a-zA-Z0-9.-]+�\g host-pat�]f [0-9a-fA-F:.]+�^g
ipv6-host-pat�_f [0-9]*�`g port-pat�ag format�bf %^//((~a)@)?((~a)|(\[(~a)\]))(:(~a))?$�cg authority-regexp�df //�eg match:substring�fg string->number�gg parse-authority�hf [a-zA-Z][a-zA-Z0-9+.-]*�ig
scheme-pat�jf [^/?#]*�kg
authority-pat�lf [^?#]*�mg path-pat�nf [^#]*�og query-pat�pf .*�qg fragment-pat�rf &^((~a):)?(//~a)?(~a)(\?(~a))?(#(~a))?$�sg uri-pat�tg
uri-regexp�ug default-prompt-tag�vu �wu �xg abort�yg string->symbol�zg string-downcase�{g string->uri*�|g make-hash-table�}g *default-ports*�~g
hashq-set!�g hashq-ref��g
default-port?��g http��g https��g
string-append��g symbol->string��f :��f @��f [��f ]��g number->string��f ?��f #��g open-output-string��g get-output-string��g
close-port��g call-with-output-string*��g open-bytevector-output-port��g call-with-output-bytevector*��g string-ci=?��f utf-8��g string->utf8��g set-port-encoding!��g call-with-encoded-output-string��g display��g
encode-string��g utf8->string��g open-bytevector-input-port��g read-string��g
decode-string��g string->char-set��f 0123456789abcdefABCDEF��g hex-chars��g encodingS������g decode-plus-to-space?S��� ����� ��g
string-length��g char-set-contains?��g string��g put-u8��g
char->integer��f 'Invalid character in encoded URI ~a: ~s��f >abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789��g ascii-alnum-chars��f :/?#[]@��g
gen-delims��f !$&'()*+,l=��g
sub-delims��g char-set-union��g reserved-chars��f -._~��g unreserved-chars��g unescaped-charsS��� ����� ��g string-for-each��g bytevector-length��g
string-upcase��g filter��g string-split��g string-join��f /�C 5 h�} � ]4
!"35 46 > "