GOOF----LE-8-2.0� ]� 4 h9W ] g guile� � g define-module*� � � g web� g request� � g filenameS�
f web/request.scm� g importsS� g rnrs�
g bytevectors�
� � g ice-9� g binary-ports� � � g rdelim� � � g srfi� g srfi-9� � � g uri� � � g http� � � ! � "g exportsS� #g request?� $g request-method� %g request-uri� &g request-version� 'g request-headers� (g request-meta� )g request-port� *g read-request� +g
build-request� ,g
write-request� -g read-request-body� .g write-request-body� /g request-cache-control� 0g request-connection� 1g request-date� 2g request-pragma� 3g request-trailer� 4g request-transfer-encoding� 5g request-upgrade� 6g request-via� 7g request-warning� 8g
request-allow� 9g request-content-encoding� :g request-content-language� ;g request-content-length� <g request-content-location� =g request-content-md5� >g request-content-range� ?g request-content-type� @g request-expires� Ag request-last-modified� Bg request-accept� Cg request-accept-charset� Dg request-accept-encoding� Eg request-accept-language� Fg request-authorization� Gg request-expect� Hg request-from� Ig request-host� Jg request-if-match� Kg request-if-modified-since� Lg request-if-none-match� Mg request-if-range� Ng request-if-unmodified-since� Og request-max-forwards� Pg request-proxy-authorization� Qg
request-range� Rg request-referer� Sg
request-te� Tg request-user-agent� Ug request-absolute-uri� V#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTU 3� Wg set-current-module� XW � YW � Zg <request>� [g %make-request-procedure� \g make-syntax-transformer� ]\ � ^\ � _g make-request� `g macro� ag $sc-dispatch� ba � ca � dg _� eg any� fdeeeeee � gg
syntax-object� hg lambda� ig m-45c8615977-9� jg top� kij � lg ribcage� mg t-45c8615977-3� ng t-45c8615977-4� og t-45c8615977-5� pg t-45c8615977-6� qg t-45c8615977-7� rg t-45c8615977-8� smnopqr � tkkkkkk � uf l-45c8615977-e� vf l-45c8615977-f� wf l-45c8615977-10� xf l-45c8615977-11� yf l-45c8615977-12� zf l-45c8615977-13� {uvwxyz � |lst{ � }l � ~g x� ~ � �k � �f l-45c8615977-b� �� � �l�� � �g shift� �g proc-name� �g args� ��� � �j � ��� � �f l-1e8ba8b5a-2ba� �f l-1e8ba8b5a-2bb� ��� � �l��� � �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� ������ � �l��� � �g make-procedure-name� �� � �� � �f l-1e8ba8b5a-29d� �� � �l��� � �� � �f l-1e8ba8b5a-29c� �� � �l�� � �k|}��}}}}����
� �g hygiene� �� � �gh�� � �g method� ��|}� � �� � �g��� � �g�� � �g version� �g��� � �g headers� �g��� � �g meta� �g��� � �g port� �g��� � ������� � �g make-struct� �g m-45c8615977-1� ��j � �g t-1e8ba8b5a-38d� �g t-1e8ba8b5a-38c� �g t-1e8ba8b5a-38b� ���� � �g m-1e8ba8b5a-38e� ��j � ���� � �f l-1e8ba8b5a-392� �f l-1e8ba8b5a-393� �f l-1e8ba8b5a-394� ���� � �l��� � �g ctor-args� �� � �f l-1e8ba8b5a-37a� �� � �l��� � �g ctor� �g field� ��� � �f l-1e8ba8b5a-376� �f l-1e8ba8b5a-377� ��� � �l��� � �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� ����� � �l��� � �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� ��������� � �l��� � �f l-1e8ba8b5a-334� �� � �l�� � ��|}��}�}}}��}��� � �g��� � �gZ�� � �g
�� � ���������� � ���� � �g each-any� �d��� �g syntax-violation� �� � � �f Wrong number of arguments�g identifier?� � ��}� �g[� �� �� � f -source expression failed to match any pattern�
g record-type-vtable�
�
�
g pwpwpwpwpwpw�g default-record-printer� � ������ �g set-struct-vtable-name!� � �g vtable-offset-user� � �g %request?-procedure�de �g m-45c8615977-20�j �g t-45c8615977-1f� � �f l-45c8615977-25� �!l �"f l-45c8615977-22�#" �$l# �%!}$�}}}}����
�&gh%� �'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�/()*+,-. �0g m-1e8ba8b5a-47f�10j �21111111 �3f l-1e8ba8b5a-483�4f l-1e8ba8b5a-484�5f l-1e8ba8b5a-485�6f l-1e8ba8b5a-486�7f l-1e8ba8b5a-487�8f l-1e8ba8b5a-488�9f l-1e8ba8b5a-489�:3456789 �;l/2: �<g copier-id�=< �>f l-1e8ba8b5a-476�?> �@l=�? �Ag ctor-name�BA �Cf l-1e8ba8b5a-46e�DC �ElB�D �F� �Gf l-1e8ba8b5a-46c�HG �IlF�H �Jg layout�KJ �Lf l-1e8ba8b5a-46a�ML �NlK�M �Og
immutable?�PO �Qf l-1e8ba8b5a-468�RQ �SlP�R �Tg field-count�UT �Vf l-1e8ba8b5a-466�WV �XlU�W �Yg
getter-ids�ZY �[f l-1e8ba8b5a-463�\[ �]lZ�\ �^g field-ids�_^ �`f l-1e8ba8b5a-460�a` �bl_�a �cg predicate-name�dg
field-spec�eO���cd �f������ �gf l-1e8ba8b5a-453�hf l-1e8ba8b5a-454�if l-1e8ba8b5a-455�jf l-1e8ba8b5a-456�kf l-1e8ba8b5a-457�lf l-1e8ba8b5a-458�mghijkl �nlefm �o�!}$�};}}}}@}E}I}N}S}X}]}bn�� �pg'o� �qp �rg and�sgro� �tg struct?�ugto� �vup �wg eq?�xgwo� �yg
struct-vtable�zgyo� �{zp �|�!}$ �}gZ|� �~x{} �sv~ ��&q ���}$ ��g�� ��g throw-bad-struct��� ��� ��g %request-method-procedure��g free-id��g
%%on-error��g m-45c8615977-2c���j ��� ��f l-45c8615977-2e��� ��l�� ���}��}}}}���� ��g��� ���� ���e ��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���j ��������� ��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��������� ��l��� ��g getter��g index���� ��f l-1e8ba8b5a-3a3��f l-1e8ba8b5a-3a4���� ��l��� ���Y< ����� ��f l-1e8ba8b5a-39e��f l-1e8ba8b5a-39f��f l-1e8ba8b5a-3a0����� ��l��� ���}��}�}}}�}��� ��g��� ���� ��d��e ��g ck��g err��g s���� ���� ��f l-45c8615977-31��f l-45c8615977-32���� ��l��� ����}��}}}}����
��g��� ��g quote��g��� ����}� ��gZ�� ���� ��� ��g %%index��g��� ���� ��d��e ��f l-45c8615977-36��f l-45c8615977-37���� ��l��� ����}��}}}}����
��g��� ��g��� ���}� ��g
�� ���� ��� ��g %%copier��g��� ���� ��d��e ��f l-45c8615977-3b��f l-45c8615977-3c���� ��l��� ����}��}}}}����
��g��� ��g��� ��g %%<request>-set-fields����}� ��g��� ���� ��� ��g t-45c8615977-2b��� ��f l-45c8615977-40��� ��l��� ����}��}}}}����
��gh�� ����}��}�}}}�}��� ��g��� ��� ��g if��g��� ��gw�� ��gy�� ���� ����}� ��gZ�� ����� ��g
struct-ref��g��� ���}� ��g
�� � ��� �g��� �g��� �g$�� � �� ��� ��� ��}� � g�� �
g %request-uri-procedure�g m-45c8615977-47�j �
�f l-45c8615977-49� �l
�}�}}}}���� �g�� �� �e ��}�}�}}}�}��� �g�� �� �de � �f l-45c8615977-4c�f l-45c8615977-4d� �l� �}�}}}}����
�g�� � g�� �!�} �"gZ!� �# " �$# �%g�� �&�% �'d&e �(f l-45c8615977-51�)f l-45c8615977-52�*() �+l�* �,+}�}}}}����
�-g�,� �.g�,� �/+} �0g/� �1.0 �21 �3g�� �4�3 �5d4e �6f l-45c8615977-56�7f l-45c8615977-57�867 �9l�8 �:9}�}}}}����
�;g�:� �<g�:� �=�9} �>g�=� �?<> �@? �Ag t-45c8615977-46�BA �Cf l-45c8615977-5b�DC �ElB
D �FE}�}}}}����
�GghF� �H�E}�}�}}}�}��� �Ig�H� �JI �Kg�H� �LgwH� �MgyH� �NMI �O�E} �PgZO� �QLNP �Rg�H� �SE} �TgS� �URIT �Vg�H� �Wg�H� �Xg%O� �YWX �ZVIY �[KQUZ �\GJ[ �]�} �^g
]� �_g %request-version-procedure�`g m-45c8615977-62�a`j �ba �cf l-45c8615977-64�dc �elbd �fa}e�}}}}���� �gg�f� �h�g �ihe �j�}e�}�}}}�}��� �kg�j� �l�k �mdile �naa �of l-45c8615977-67�pf l-45c8615977-68�qop �rl�nq �sar}e�}}}}����
�tg�s� �ug�s� �v�r}e �wgZv� �xuw �yx �zg�j� �{�z �|di{e �}f l-45c8615977-6c�~f l-45c8615977-6d�}~ ��l�n ��a�}e�}}}}����
��g��� ��g��� ���}e ��g �� ���� ��� ��g�j� ���� ��di�e ��f l-45c8615977-71��f l-45c8615977-72���� ��l�n� ��a�}e�}}}}����
��g��� ��g��� ����}e ��g��� ���� ��� ��g t-45c8615977-61��� ��f l-45c8615977-76��� ��l�b� ��a�}e�}}}}����
��gh�� ����}e�}�}}}�}��� ��g��� ��� ��g��� ��gw�� ��gy�� ���� ����}e ��gZ�� ����� ��g��� ���}e ��g �� ����� ��g��� ��g��� ��g&�� ���� ����� ������ ����� ���}e ��g_�� ��g %request-headers-procedure��g m-45c8615977-7d���j ��� ��f l-45c8615977-7f��� ��l�� ���}��}}}}���� ��g��� ���� ���e ���}��}�}}}�}��� ��g��� ���� ��d��e ���� ��f l-45c8615977-82��f l-45c8615977-83���� ��l��� ����}��}}}}����
��g��� ��g��� ����}� ��gZ�� ���� ��� ��g��� ���� ��d��e ��f l-45c8615977-87��f l-45c8615977-88���� ��l��� ����}��}}}}����
��g��� ��g��� ���}� ��g �� ���� ��� ��g��� ���� ��d��e ��f l-45c8615977-8c��f l-45c8615977-8d���� ��l��� ����}��}}}}����
��g��� ��g��� ����}� ��g��� ���� ��� ��g t-45c8615977-7c��� ��f l-45c8615977-91��� ��l��� ����}��}}}}����
��gh�� ����}��}�}}}�}��� ��g��� ��� ��g��� ��gw�� ��gy�� ���� ����}� ��gZ�� ����� ��g��� ���}� ��g �� ����� � g��� �g��� �g'�� � � � ���� ��� ��}� �g�� � g %request-meta-procedure�
g m-45c8615977-98�
j � �
f l-45c8615977-9a�
�l �}�}}}}���� �g�� �� �e ��}�}�}}}�}��� �g�� �� �de � �f l-45c8615977-9d�f l-45c8615977-9e� �l� �}�}}}}����
�g�� �g�� � �} �!gZ � �"! �#" �$g�� �%�$ �&d%e �'f l-45c8615977-a2�(f l-45c8615977-a3�)'( �*l�) �+*}�}}}}����
�,g�+� �-g�+� �.*} �/g .� �0-/ �10 �2g�� �3�2 �4d3e �5f l-45c8615977-a7�6f l-45c8615977-a8�756 �8l�7 �98}�}}}}����
�:g�9� �;g�9� �<�8} �=g�<� �>;= �?> �@g t-45c8615977-97�A@ �Bf l-45c8615977-ac�CB �DlAC �ED}�}}}}����
�FghE� �G�D}�}�}}}�}��� �Hg�G� �IH �Jg�G� �KgwG� �LgyG� �MLH �N�D} �OgZN� �PKMO �Qg�G� �RD} �Sg R� �TQHS �Ug�G� �Vg�G� �Wg(N� �XVW �YUHX �ZJPTY �[FIZ �\�} �]g \� �^g %request-port-procedure�_g m-45c8615977-b3�`_j �a` �bf l-45c8615977-b5�cb �dlac �e`}d�}}}}���� �fg�e� �g�f �hge �i�}d�}�}}}�}��� �jg�i� �k�j �ldhke �m`` �nf l-45c8615977-b8�of l-45c8615977-b9�pno �ql�mp �r`q}d�}}}}����
�sg�r� �tg�r� �u�q}d �vgZu� �wtv �xw �yg�i� �z�y �{dhze �|f l-45c8615977-bd�}f l-45c8615977-be�~|} �l�m~ ��`}d�}}}}����
��g��� ��g��� ��}d ��g �� ���� ��� ��g�i� ���� ��dh�e ��f l-45c8615977-c2��f l-45c8615977-c3���� ��l�m� ��`�}d�}}}}����
��g��� ��g��� ����}d ��g��� ���� ��� ��g t-45c8615977-b2��� ��f l-45c8615977-c7��� ��l�a� ��`�}d�}}}}����
��gh�� ����}d�}�}}}�}��� ��g��� ��� ��g��� ��gw�� ��gy�� ���� ����}d ��gZ�� ����� ��g��� ���}d ��g �� ����� ��g��� ��g��� ��g)�� ���� ����� ������ ����� ���}d ��g^�� ��g each��ee ���� ��e����e����e����g %%set-fields��g dummy��g check?��g expr������� ��g m-45c8615977-ce���j ������� ��f l-45c8615977-d3��f l-45c8615977-d4��f l-45c8615977-d5��f l-45c8615977-d6��f l-45c8615977-d7������� ��l��� ��� ��f l-45c8615977-d0��� ��l�� ��g t-1e8ba8b5a-3c4��g t-1e8ba8b5a-3c6��g t-1e8ba8b5a-3c5����� ��g m-1e8ba8b5a-3c7���j ����� ��f l-1e8ba8b5a-3cb��f l-1e8ba8b5a-3cc��f l-1e8ba8b5a-3cd����� ��l��� ��f l-1e8ba8b5a-3c1��f l-1e8ba8b5a-3c2��f l-1e8ba8b5a-3c3����� ��l��� ����}��}�}}}���
��g��� ����}� ��gZ�� ��g$�� ��g%�� ��g&�� ��g'�� ��g(�� ��g)�� �������� ��g map��� ��� ��g list��g throw��g bad-request��g display��f
Bad request: ��g apply��g format��g newline��g bad-request-printer��g set-exception-printer!��g number?��g exact?��g integer?��g non-negative-integer?��g
valid-header?��g validate-headers��f Bad value for header ~a: ~s��f Header not a pair: ~a��f Headers not a list: ~a��g methodS����� g versionS� ��g headersS� ��g portS� ��g metaS� ��g validate-headers?S� ��
� �g GET���
g assq-ref�g host�f Bad version: ~a�f Bad uri: ~a�g <uri>� � �g POST�g PUT�f Missing port for message ~a�f ;HTTP/1.1 request without Host header and no host in URI: ~a�f Bad metadata alist�g uri-host�g uri-port�g set-port-encoding!�f
ISO-8859-1�g read-request-line�g read-headers�g write-request-line� g
write-headers�!f
�"g get-bytevector-n�#g bytevector-length�$f .EOF while reading request body: ~a bytes of ~a�%g put-bytevector�&g define-request-accessor�'� �(f l-45c8615977-1b1�)( �*l'�) �+f l-45c8615977-1ae�,+ �-l�, �.�*}- �/g&.� �0g.� �10 �2dee �3g
datum->syntax�4g
symbol-append�5g request-�6g
syntax->datum�7g define*�8g t-45c8615977-1bc�98 �:g m-45c8615977-1bd�;:j �<; �=f l-45c8615977-1c0�>= �?l9<> �@g def�A�@ �Bf l-45c8615977-1b8�Cf l-45c8615977-1b9�DBC �ElA�D �F�}?E}- �Gg7F� �HgF� �Ig optionalS�JgIF� �Kg default�LgKF� �Mg cond�NgMF� �Og assq�PgOF� �Qg�F� �Rg'F� �SRH �TS �Ug =>�VgUF� �Wg cdr�XgWF� �YVX �Zg else�[gZF� �\[L �]\ �^g
cache-control�_g
connection�`g date�ag pragma�bg trailer�cg transfer-encoding�dg upgrade�eg via�fg warning�gg allow�hg content-encoding�ig content-language�jg content-length�kg content-location�lg content-md5�mg
content-range�ng content-type�og expires�pg
last-modified�qg accept�rg accept-charset�sg accept-encoding�tg accept-language�ug
authorization�vg expect�wg from�xg if-match�yg if-modified-since�zg
if-none-match�{g if-range�|g if-unmodified-since�}g max-forwards�~g proxy-authorization�g range��g referer��g te��g
user-agent��f 4URI not absolute, no Host header, and no default: ~s��g build-uri��g
uri-scheme��g hostS��g pathS��g uri-path��g queryS��g uri-query��g fragmentS��g uri-fragment�C 5 h�o 9 ]4
!"V5 4Y > "