GOOF----LE-8-2.0� ]{ 4 h�U ] g guile� � g define-module*� � � g web� g response� � g filenameS�
f web/response.scm� g importsS� g rnrs�
g bytevectors�
� � g ice-9� g binary-ports� � � g rdelim� � � g match� � � g srfi� g srfi-9� � � g http� � � ! � "g exportsS� #g response?� $g response-version� %g
response-code� &g response-reason-phrase� 'g response-headers� (g
response-port� )g
read-response� *g build-response� +g adapt-response-version� ,g write-response� -g response-must-not-include-body?� .g response-body-port� /g read-response-body� 0g write-response-body� 1g response-cache-control� 2g response-connection� 3g
response-date� 4g response-pragma� 5g response-trailer� 6g response-transfer-encoding� 7g response-upgrade� 8g response-via� 9g response-warning� :g response-allow� ;g response-content-encoding� <g response-content-language� =g response-content-length� >g response-content-location� ?g response-content-md5� @g response-content-range� Ag response-content-type� Bg text-content-type?� Cg response-expires� Dg response-last-modified� Eg response-accept-ranges� Fg response-age� Gg
response-etag� Hg response-location� Ig response-proxy-authenticate� Jg response-retry-after� Kg response-server� Lg
response-vary� Mg response-www-authenticate� N#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLM +� Og set-current-module� PO � QO � Rg
<response>� Sg %make-response-procedure� Tg make-syntax-transformer� UT � VT � Wg
make-response� Xg macro� Yg $sc-dispatch� ZY � [Y � \g _� ]g any� ^\]]]]] � _g
syntax-object� `g lambda� ag m-a15fd730aa5-8� bg top� cab � dg ribcage� eg t-a15fd730aa5-3� fg t-a15fd730aa5-4� gg t-a15fd730aa5-5� hg t-a15fd730aa5-6� ig t-a15fd730aa5-7� jefghi � kccccc � lf l-a15fd730aa5-d� mf l-a15fd730aa5-e� nf l-a15fd730aa5-f� of l-a15fd730aa5-10� pf l-a15fd730aa5-11� qlmnop � rdjkq � sd � tg x� ut � vc � wf l-a15fd730aa5-a� xw � yduvx � zg shift� {g proc-name� |g args� }{| � ~b � ~~ � �f l-1e8ba8b5a-2ba� �f l-1e8ba8b5a-2bb� ��� � �d}� � �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� ������ � �d��� � �g make-procedure-name� �� � �~ � �f l-1e8ba8b5a-29d� �� � �d��� � �~ � �f l-1e8ba8b5a-29c� �� � �du�� � �crsyzssss����
� �g hygiene� �� � �_`�� � �g version� �~rsy � �� � �_��� � �g code� �_��� � �g
reason-phrase� �_��� � �g headers� �_��� � �g port� �_��� � ������ � �g make-struct� �g m-a15fd730aa5-1� ��b � �g t-1e8ba8b5a-38d� �g t-1e8ba8b5a-38c� �g t-1e8ba8b5a-38b� ���� � �g m-1e8ba8b5a-38e� ��b � ���� � �f l-1e8ba8b5a-392� �f l-1e8ba8b5a-393� �f l-1e8ba8b5a-394� ���� � �d��� � �g ctor-args� �� � �f l-1e8ba8b5a-37a� �� � �d��� � �g ctor� �g field� ��� � �f l-1e8ba8b5a-376� �f l-1e8ba8b5a-377� ��� � �d�� � �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� ����� � �d��� � �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� ��������� � �d��� � �f l-1e8ba8b5a-334� �� � �du�� � ��rsyzs�sss��s��� � �_��� � �_R�� � �_
�� � ��������� � ���� � �g each-any� �\� �g syntax-violation� �� � �� � �f Wrong number of arguments� �g identifier?� �� � �� � �~sy � �_S�� � �� � �� � �f -source expression failed to match any pattern� �g record-type-vtable� � �� �g
pwpwpwpwpw�g default-record-printer� � ������ �g set-struct-vtable-name!� � �
g vtable-offset-user�
�
�
g %response?-procedure�\] �g m-a15fd730aa5-1d�b �g t-a15fd730aa5-1c� � �f l-a15fd730aa5-22� �d �f l-a15fd730aa5-1f� �du �szssss����
�_`� �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�&%b �'&&&&&&& �(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�/()*+,-. �0d$'/ �1g copier-id�21 �3f l-1e8ba8b5a-476�43 �5d2�4 �6g ctor-name�76 �8f l-1e8ba8b5a-46e�98 �:d7�9 �;� �<f l-1e8ba8b5a-46c�=< �>d;�= �?g layout�@? �Af l-1e8ba8b5a-46a�BA �Cd@�B �Dg
immutable?�ED �Ff l-1e8ba8b5a-468�GF �HdE�G �Ig field-count�JI �Kf l-1e8ba8b5a-466�LK �MdJ�L �Ng
getter-ids�ON �Pf l-1e8ba8b5a-463�QP �RdO�Q �Sg field-ids�TS �Uf l-1e8ba8b5a-460�VU �WdT�V �Xg predicate-name�Yg
field-spec�ZD���XY �[~~~~~~ �\f l-1e8ba8b5a-453�]f l-1e8ba8b5a-454�^f l-1e8ba8b5a-455�_f l-1e8ba8b5a-456�`f l-1e8ba8b5a-457�af l-1e8ba8b5a-458�b\]^_`a �cdZ[b �d�szs0ssss5s:s>sCsHsMsRsWc�� �e_d� �fe �gg and�h_gd� �ig struct?�j_id� �kje �lg eq?�m_ld� �ng
struct-vtable�o_nd� �poe �q~s �r_Rq� �smpr �thks �uft �v~s �w_
v� �xg throw-bad-struct�yx �zx �{g %response-version-procedure�|g free-id�}g
%%on-error�~g m-a15fd730aa5-29�~b �� ��f l-a15fd730aa5-2b��� ��du�� ��s�zssss���� ��_}�� ��|� ���] ��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���b ��������� ��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��������� ��d��� ��g getter��g index���� ��f l-1e8ba8b5a-3a3��f l-1e8ba8b5a-3a4���� ��d�� ���N1 ��~~~ ��f l-1e8ba8b5a-39e��f l-1e8ba8b5a-39f��f l-1e8ba8b5a-3a0����� ��d��� ���s�zs�sss�s��� ��_��� ��|� ��\��] ��g ck��g err��g s���� �� ��f l-a15fd730aa5-2e��f l-a15fd730aa5-2f���� ��d��� ���s�zssss����
��_��� ��g quote��_��� ��~�s� ��_R�� ���� ��� ��g %%index��_��� ��|� ��\��] ��f l-a15fd730aa5-33��f l-a15fd730aa5-34���� ��d��� ���s�zssss����
��_��� ��_��� ���s� ��_
�� ���� ��� ��g %%copier��_��� ��|� ��\��] ��f l-a15fd730aa5-38��f l-a15fd730aa5-39���� ��d��� ���s�zssss����
��_��� ��_��� ��g %%<response>-set-fields��~�s� ��_��� ���� ��� ��g t-a15fd730aa5-28��� ��f l-a15fd730aa5-3d��� ��d��� ���s�zssss����
��_`�� ����s�zs�sss�s��� ��_��� ��� ��g if��_��� ��_l�� ��_n�� ���� ��~�s� ��_R�� ����� ��g
struct-ref��_��� ���s� ��_
�� ����� ��_x�� ��_��� ��_$�� ���� ����� ������ ����� ��~s� ��_{�� ��g %response-code-procedure� g m-a15fd730aa5-44� b � �f l-a15fd730aa5-46� �du �szssss���� �_}� �| � ] �
�szs�sss�s��� �_�
� �| �
\ ] � �f l-a15fd730aa5-49�f l-a15fd730aa5-4a� �d� �szssss����
�_�� �_�� �~s �_R� � � �_�
� �| �\ ] �f l-a15fd730aa5-4e�f l-a15fd730aa5-4f� � d� �! szssss����
�"_�!� �#_�!� �$ s �%_$� �&#% �'& �(_�
� �)|( �*\ )] �+f l-a15fd730aa5-53�,f l-a15fd730aa5-54�-+, �.d�- �/.szssss����
�0_�/� �1_�/� �2~.s �3_�2� �413 �54 �6g t-a15fd730aa5-43�76 �8f l-a15fd730aa5-58�98 �:d79 �;:szssss����
�<_`;� �=�:szs�sss�s��� �>_�=� �?> �@_�=� �A_l=� �B_n=� �CB> �D~:s �E_RD� �FACE �G_�=� �H:s �I_H� �JG>I �K_x=� �L_�=� �M_%D� �NLM �OK>N �P@FJO �Q<?P �R~s �S_�R� �Tg %response-reason-phrase�Ug "%%response-reason-phrase-procedure�Vg m-a15fd730aa5-5f�WVb �XW �Yf l-a15fd730aa5-61�ZY �[duXZ �\Ws[zssss���� �]_}\� �^|] �_^] �`�s[zs�sss�s��� �a_�`� �b|a �c\_b] �dWW �ef l-a15fd730aa5-64�ff l-a15fd730aa5-65�gef �hd�dg �iWhs[zssss����
�j_�i� �k_�i� �l~hs[ �m_Rl� �nkm �on �p_�`� �q|p �r\_q] �sf l-a15fd730aa5-69�tf l-a15fd730aa5-6a�ust �vd�du �wWvs[zssss����
�x_�w� �y_�w� �zvs[ �{_ z� �|y{ �}| �~_�`� �|~ ��\_] ��f l-a15fd730aa5-6e��f l-a15fd730aa5-6f���� ��d�d� ��W�s[zssss����
��_��� ��_��� ��~�s[ ��_��� ���� ��� ��g t-a15fd730aa5-5e��� ��f l-a15fd730aa5-73��� ��d�X� ��W�s[zssss����
��_`�� ����s[zs�sss�s��� ��_��� ��� ��_��� ��_l�� ��_n�� ���� ��~�s[ ��_R�� ����� ��_��� ���s[ ��_ �� ����� ��_x�� ��_��� ��_T�� ���� ����� ������ ����� ��~s[ ��_U�� ��g %response-headers-procedure��g m-a15fd730aa5-7a���b ��� ��f l-a15fd730aa5-7c��� ��du�� ���s�zssss���� ��_}�� ��|� ���] ���s�zs�sss�s��� ��_��� ��|� ��\��] ���� ��f l-a15fd730aa5-7f��f l-a15fd730aa5-80���� ��d��� ����s�zssss����
��_��� ��_��� ��~�s� ��_R�� ���� ��� ��_��� ��|� ��\��] ��f l-a15fd730aa5-84��f l-a15fd730aa5-85���� ��d��� ����s�zssss����
��_��� ��_��� ���s� ��_ �� ���� ��� ��_��� ��|� ��\��] ��f l-a15fd730aa5-89��f l-a15fd730aa5-8a���� ��d��� ����s�zssss����
��_��� ��_��� ��~�s� ��_��� ���� ��� ��g t-a15fd730aa5-79��� ��f l-a15fd730aa5-8e��� ��d��� ����s�zssss����
��_`�� ����s�zs�sss�s��� ��_��� ��� ��_��� ��_l�� ��_n�� ���� ��~�s� ��_R�� ����� ��_��� ���s� ��_ �� ����� ��_x�� ��_��� ��_'�� ���� ����� ������ ����� ��~s� ��_��� ��g %response-port-procedure� g m-a15fd730aa5-95� b � �f l-a15fd730aa5-97� �du �szssss���� �_}� �| � ] �
�szs�sss�s��� �_�
� �| �
\ ] � �f l-a15fd730aa5-9a�f l-a15fd730aa5-9b� �d� �szssss����
�_�� �_�� �~s �_R� � � �_�
� �| �\ ] �f l-a15fd730aa5-9f�f l-a15fd730aa5-a0� � d� �! szssss����
�"_�!� �#_�!� �$ s �%_ $� �&#% �'& �(_�
� �)|( �*\ )] �+f l-a15fd730aa5-a4�,f l-a15fd730aa5-a5�-+, �.d�- �/.szssss����
�0_�/� �1_�/� �2~.s �3_�2� �413 �54 �6g t-a15fd730aa5-94�76 �8f l-a15fd730aa5-a9�98 �:d79 �;:szssss����
�<_`;� �=�:szs�sss�s��� �>_�=� �?> �@_�=� �A_l=� �B_n=� �CB> �D~:s �E_RD� �FACE �G_�=� �H:s �I_ H� �JG>I �K_x=� �L_�=� �M_(D� �NLM �OK>N �P@FJO �Q<?P �R~s �S_�R� �Tg each�U]] �VTU �W]V��X]W��Y]X��Zg %%set-fields�[g dummy�\g check?�]g expr�^[\��] �_g m-a15fd730aa5-b0�`_b �a`���� �bf l-a15fd730aa5-b5�cf l-a15fd730aa5-b6�df l-a15fd730aa5-b7�ef l-a15fd730aa5-b8�ff l-a15fd730aa5-b9�gbcdef �hd^ag �i` �jf l-a15fd730aa5-b2�kj �lduik �mg t-1e8ba8b5a-3c4�ng t-1e8ba8b5a-3c6�og t-1e8ba8b5a-3c5�pmno �qg m-1e8ba8b5a-3c7�rqb �srrr �tf l-1e8ba8b5a-3cb�uf l-1e8ba8b5a-3cc�vf l-1e8ba8b5a-3cd�wtuv �xdpsw �yf l-1e8ba8b5a-3c1�zf l-1e8ba8b5a-3c2�{f l-1e8ba8b5a-3c3�|yz{ �}d��| �~�hslzsxsss}��
�_Z~� ��~hsl ��_R�� ��_$�� ��_%�� ��_T�� ��_'�� ��_(�� ������� ��g map��� ��� ��g list��g throw��g bad-response��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 versionS���
���g codeS������g
reason-phraseS��� ���g headersS��� ���g portS��� ���g validate-headers?S��� ��������� �����f Bad version: ~a��f Bad code: ~a��g string?��f Bad reason phrase��f Continue�� d����f Switching Protocols�� e����f OK�� �����f Created�� �����f Accepted�� �����f Non-Authoritative Information�� �����f
No Content�� �����f
Reset Content�� �����f Partial Content�� �����f Multiple Choices��,����f Moved Permanently��-����f Found��.����f See Other��/����f Not Modified��0Ì��f Use Proxy��1Ō��f Temporary Redirect��3nj��f Bad Request���Ɍ��f Unauthorized���ˌ��f Payment Required���͌��f Forbidden���ό��f Not Found���ь��f Method Not Allowed���ӌ��f Not Acceptable���Ռ��f Proxy Authentication Required�����f Request Timeout���ٌ��f Conflict���ی��f Gone�����f Length Required���ߌ��f Precondition Failed���ጤ�f Request Entity Too Large���㌤�f Request-URI Too Long���匤�f Unsupported Media Type���猤�f Requested Range Not Satisfiable���錤�f Expectation Failed���댤�f Internal Server Error���팤�f Not Implemented����f Bad Gateway�����f Service Unavailable�����f Gateway Timeout�������f HTTP Version Not Supported����������������������������������������������� (��g *reason-phrases*��g assv-ref��f (Unknown)��g code->reason-phrase��g symbol->string��g string-prefix?� f text/�g string-suffix?�f /xml�f +xml�g set-port-encoding!�f
ISO-8859-1�g read-response-line�g read-headers�g write-response-line� g
write-headers�
g display�f
�g
close-port�
g make-custom-binary-input-port�f delimited input port�g min�g eof-object?�f /EOF while reading response body: ~a bytes of ~a�g get-bytevector-n!�g make-delimited-input-port�g decode?S���g keep-alive?S� �� �g member�g chunked� �g make-chunked-input-port�g memq�g close�
�� g
keep-alive�!g assq-ref�"g charset�#g and=>�$g get-bytevector-all�%g vu8
� j �&g put-bytevector�'g define-response-accessor�(� �)f l-a15fd730aa5-22a�*) �+d(�* �,f l-a15fd730aa5-227�-, �.du�- �/~+s. �0_'/� �1_/� �21 �3\]] �4g
datum->syntax�5g
symbol-append�6g response-�7g
syntax->datum�8g define*�9g t-a15fd730aa5-235�:9 �;g m-a15fd730aa5-236�<;b �=< �>f l-a15fd730aa5-239�?> �@d:=? �Ag def�B�A �Cf l-a15fd730aa5-231�Df l-a15fd730aa5-232�ECD �FdBE �G~s@Fs. �H_8G� �I_G� �Jg optionalS�K_JG� �Lg default�M_LG� �Ng cond�O_NG� �Pg assq�Q_PG� �R_�G� �S_'G� �TSI �UT �Vg =>�W_VG� �Xg cdr�Y_XG� �ZWY �[g else�\_[G� �]\M �^] �_g
cache-control�`g
connection�ag date�bg pragma�cg trailer�dg transfer-encoding�eg upgrade�fg via�gg warning�hg allow�ig content-encoding�jg content-language�kg content-length�lg content-location�mg content-md5�ng
content-range�og content-type�pg expires�qg
last-modified�rg
accept-ranges�sg age�tg etag�ug location�vg proxy-authenticate�wg retry-after�xg server�yg vary�zg www-authenticate�C 5 h`o ]4
!"N5 4Q > "