GOOF----LE-8-2.0�q ]\ 4 h�= ] g guile� � g define-module*� � � g web� g server� g http� �
g filenameS� f web/server/http.scm� g importsS�
g srfi� g srfi-1�
� g selectS� g fold� � � g srfi-9�
� � g rnrs� g bytevectors� � � g request� � � g response� � � ! � "! � #g ice-9� $g poll� %#$ � &% � ' "& � (g exportsS� ) � *g set-current-module� +* � ,* � -g socket� .g PF_INET� /g SOCK_STREAM� 0g
setsockopt� 1g
SOL_SOCKET� 2g SO_REUSEADDR� 3g bind� 4g make-default-socket� 5g
<http-server>� 6g %make-http-server-procedure� 7g make-syntax-transformer� 87 � 97 � :g make-http-server� ;g macro� <g $sc-dispatch� =< � >< � ?g _� @g any� A?@@@ � Bg
syntax-object� Cg lambda� Dg
m-1e74a72e9-e� Eg top� FDE � Gg ribcage� Hg
t-1e74a72e9-b� Ig
t-1e74a72e9-c� Jg
t-1e74a72e9-d� KHIJ � LFFF � Mf l-1e74a72e9-13� Nf l-1e74a72e9-14� Of l-1e74a72e9-15� PMNO � QGKLP � RG � Sg x� TS � UF � Vf l-1e74a72e9-10� WV � XGTUW � Yg shift� Zg proc-name� [g args� \Z[ � ]E � ^]] � _f l-1e8ba8b5a-2ba� `f l-1e8ba8b5a-2bb� a_` � bG\^a � cg key� dg value� eg name� fg formals� gg body� hcdefg � i]]]]] � jf l-1e8ba8b5a-2ad� kf l-1e8ba8b5a-2ae� lf l-1e8ba8b5a-2af� mf l-1e8ba8b5a-2b0� nf l-1e8ba8b5a-2b1� ojklmn � pGhio � qg make-procedure-name� rq � s] � tf l-1e8ba8b5a-29d� ut � vGrsu � w] � xf l-1e8ba8b5a-29c� yx � zGTwy � {FQRXYRRRRbpvz
� |g hygiene� }|
� ~BC{} � ]QRX � �| � �B-� � �g poll-idx� �B�� � �g poll-set� �B�� � ���� � �g make-struct� �g
m-1e74a72e9-9� ��E � �g t-1e8ba8b5a-38d� �g t-1e8ba8b5a-38c� �g t-1e8ba8b5a-38b� ���� � �g m-1e8ba8b5a-38e� ��E � ���� � �f l-1e8ba8b5a-392� �f l-1e8ba8b5a-393� �f l-1e8ba8b5a-394� ���� � �G��� � �g ctor-args� �� � �f l-1e8ba8b5a-37a� �� � �G�w� � �g ctor� �g field� ��� � �f l-1e8ba8b5a-376� �f l-1e8ba8b5a-377� ��� � �G�^� � �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� ����� � �G��� � �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� ��������� � �G��� � �f l-1e8ba8b5a-334� �� � �GTw� � ��QRXYR�RRR��R��� � �B��} � �B5� � �B
�} � ������� � �~�� � �g each-any� �?ˌ� �g syntax-violation� �� � �� � �f Wrong number of arguments� �g identifier?� �� � �� � �]RX � �B6�� � �� � �� � �f -source expression failed to match any pattern� �g record-type-vtable� �� � �� � �g pwpwpw� �g default-record-printer� �� � �� � �-�� � �g set-struct-vtable-name!� �� � �� � �g vtable-offset-user� �� � �� � �g %http-server?-procedure� �g http-server?� �?@ � �g m-1e74a72e9-1f� ��E � �g t-1e74a72e9-1e� �� � �� � �f l-1e74a72e9-24� �� � �G��� � �f l-1e74a72e9-21� �� � �GT�� � ���R�YRRRRbpvz
� �BC�} � �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� E � �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�
�G�
�g copier-id�
�f l-1e8ba8b5a-476� �G
w �g ctor-name� �f l-1e8ba8b5a-46e� �Gw �� �f l-1e8ba8b5a-46c� �Gw �g layout� �f l-1e8ba8b5a-46a� �Gw �g
immutable?� �!f l-1e8ba8b5a-468�"! �#G w" �$g field-count�%$ �&f l-1e8ba8b5a-466�'& �(G%w' �)g
getter-ids�*) �+f l-1e8ba8b5a-463�,+ �-G*w, �.g field-ids�/. �0f l-1e8ba8b5a-460�10 �2G/w1 �3g predicate-name�4g
field-spec�5���34 �6]]]]]] �7f l-1e8ba8b5a-453�8f l-1e8ba8b5a-454�9f l-1e8ba8b5a-455�:f l-1e8ba8b5a-456�;f l-1e8ba8b5a-457�<f l-1e8ba8b5a-458�=789:;< �>G56= �?��R�YRRRRRRRRR#R(R-R2>�� �@B�?} �A@ �Bg and�CBB?} �Dg struct?�EBD?} �FE@ �Gg eq?�HBG?} �Ig
struct-vtable�JBI?} �KJ@ �L]�R� �MB5L� �NHKM �OCFN �P�AO �Q]R� �RB�Q� �Sg throw-bad-struct�TS �US �Vg http-socket�Wg %http-socket-procedure�Xg free-id�Yg
%%on-error�Zg m-1e74a72e9-2b�[ZE �\[ �]f l-1e74a72e9-2d�^] �_GT\^ �`[R_YRRRRbpvz �aBY`} �bXa �cb@ �dg %%type�eg t-1e8ba8b5a-3a5�fg t-1e8ba8b5a-3a6�gg t-1e8ba8b5a-3a7�hg t-1e8ba8b5a-3a8�ig t-1e8ba8b5a-3a9�jg t-1e8ba8b5a-3aa�kg t-1e8ba8b5a-3ab�lefghijk �mg m-1e8ba8b5a-3ac�nmE �onnnnnnn �pf l-1e8ba8b5a-3b0�qf l-1e8ba8b5a-3b1�rf l-1e8ba8b5a-3b2�sf l-1e8ba8b5a-3b3�tf l-1e8ba8b5a-3b4�uf l-1e8ba8b5a-3b5�vf l-1e8ba8b5a-3b6�wpqrstuv �xGlow �yg getter�zg index�{yz �|f l-1e8ba8b5a-3a3�}f l-1e8ba8b5a-3a4�~|} �G{^~ ���) ��]]] ��f l-1e8ba8b5a-39e��f l-1e8ba8b5a-39f��f l-1e8ba8b5a-3a0����� ��G��� ���R_YRxRRRR��� ��Bd�} ��X� ��?c�@ ��g ck��g err��g s���� ��[[ ��f l-1e74a72e9-30��f l-1e74a72e9-31���� ��G��� ��[�R_YRRRRbpvz
��B��} ��g quote��B��} ��]�R_ ��B5�� ���� ��� ��g %%index��B��} ��X� ��?c�@ ��f l-1e74a72e9-35��f l-1e74a72e9-36���� ��G��� ��[�R_YRRRRbpvz
��B��} ��B��} ���R_ ��B
�� ���� ��� ��g %%copier��B��} ��X� ��?c�@ ��f l-1e74a72e9-3a��f l-1e74a72e9-3b���� ��G��� ��[�R_YRRRRbpvz
��B��} ��B��} ��g %%<http-server>-set-fields��]�R_ ��B��� ���� ��� ��g t-1e74a72e9-2a��� ��f l-1e74a72e9-3f��� ��G�\� ��[�R_YRRRRbpvz
��BC�} ����R_YRxRRRR��� ��B��} ��� ��g if��B��} ��BG�} ��BI�} ���� ��]�R_ ��B5�� ����� ��g
struct-ref��B��} ���R_ ��B
�� ����� ��BS�} ��B��} ��BV�� ���� ����� ������ ����� ��]R_ ��BW�� ��g
http-poll-idx��g %http-poll-idx-procedure��g m-1e74a72e9-46���E ��� ��f l-1e74a72e9-48��� ��GT�� ���R�YRRRRbpvz ��BY�} ��X� ���@ ���R�YRxRRRR��� ��Bd�} ��X� ��?��@ ���� ��f l-1e74a72e9-4b��f l-1e74a72e9-4c���� ��G��� ����R�YRRRRbpvz
��B��} ��B��} ��]�R� ��B5�� ���� ��� ��B��} ��X� ��?��@ ��f l-1e74a72e9-50��f l-1e74a72e9-51���� ��G��� ����R�YRRRRbpvz
��B��} � B��} ��R� �B� � � �B��} �X �?�@ �f l-1e74a72e9-55� f l-1e74a72e9-56�
�G��
��R�YRRRRbpvz
�
B�} �B�} �]R� �B�� � � �g t-1e74a72e9-45� �f l-1e74a72e9-5a� �G� ��R�YRRRRbpvz
�BC} ��R�YRxRRRR��� �B�} � �B�} �BG} �BI} � �!]R� �"B5!� �# " �$B�} �%R� �&B%� �'$& �(BS} �)B�} �*B�!� �+)* �,(+ �-#', �.- �/]R� �0B�/� �1g
http-poll-set�2g %http-poll-set-procedure�3g m-1e74a72e9-61�43E �54 �6f l-1e74a72e9-63�76 �8GT57 �94R8YRRRRbpvz �:BY9} �;X: �<;@ �=�R8YRxRRRR��� �>Bd=} �?X> �@?<?@ �A44 �Bf l-1e74a72e9-66�Cf l-1e74a72e9-67�DBC �EG�AD �F4ER8YRRRRbpvz
�GB�F} �HB�F} �I]ER8 �JB5I� �KHJ �LK �MB�=} �NXM �O?<N@ �Pf l-1e74a72e9-6b�Qf l-1e74a72e9-6c�RPQ �SG�AR �T4SR8YRRRRbpvz
�UB�T} �VB�T} �WSR8 �XB W� �YVX �ZY �[B�=} �\X[ �]?<\@ �^f l-1e74a72e9-70�_f l-1e74a72e9-71�`^_ �aG�A` �b4aR8YRRRRbpvz
�cB�b} �dB�b} �e]aR8 �fB�e� �gdf �hg �ig t-1e74a72e9-60�ji �kf l-1e74a72e9-75�lk �mGj5l �n4mR8YRRRRbpvz
�oBCn} �p�mR8YRxRRRR��� �qB�p} �rq �sB�p} �tBGp} �uBIp} �vuq �w]mR8 �xB5w� �ytvx �zB�p} �{mR8 �|B {� �}zq| �~BSp} �B�p} ��B1w� ��� ��~q� ��sy}� ��or� ��]R8 ��B2�� ��g each��@@ ���� ��@����@����@����g %%set-fields��g dummy��g check?��g expr�����y� ��g m-1e74a72e9-7c���E ������� ��f l-1e74a72e9-81��f l-1e74a72e9-82��f l-1e74a72e9-83��f l-1e74a72e9-84��f l-1e74a72e9-85������� ��G��� ��� ��f l-1e74a72e9-7e��� ��GT�� ��g t-1e8ba8b5a-3c4��g t-1e8ba8b5a-3c6��g t-1e8ba8b5a-3c5����� ��g m-1e8ba8b5a-3c7���E ����� ��f l-1e8ba8b5a-3cb��f l-1e8ba8b5a-3cc��f l-1e8ba8b5a-3cd����� ��G��� ��f l-1e8ba8b5a-3c1��f l-1e8ba8b5a-3c2��f l-1e8ba8b5a-3c3����� ��G��� ����R�YR�RRR���
��B��} ��]�R� ��B5�� ��BV�� ��B��� ��B1�� ����� ��g map��� ��� ��g list��g set-http-poll-idx!��g %set-http-poll-idx!-procedure��?@@ ��g m-1e74a72e9-90���E ��g t-1e74a72e9-8e��g t-1e74a72e9-8f���� ���� ��f l-1e74a72e9-95��f l-1e74a72e9-96���� ��G��� ��� ��f l-1e74a72e9-92��� ��GT�� ����R�YRRRRbpvz
��BC�} ��g t-1e8ba8b5a-3e6��g t-1e8ba8b5a-3e7���� ��g m-1e8ba8b5a-3e8���E ���� ��f l-1e8ba8b5a-3ec��f l-1e8ba8b5a-3ed���� ��G��� ��g setter��ey� ��f l-1e8ba8b5a-3e0��f l-1e8ba8b5a-3e1��f l-1e8ba8b5a-3e2����� ��G��� ��4z ��f l-1e8ba8b5a-3d7��f l-1e8ba8b5a-3d8���� ��G�^� ��g field-specs���� ��f l-1e8ba8b5a-3d3��f l-1e8ba8b5a-3d4���� ��G�^� ����R�YR��R�R��� ��B��} ��g val��B��} ���� ��B��} ��BG�} ��BI�} ���� ��]�R� ��B5�� ����� ��g struct-set!��B��} ���R� ��B�� ������ ��BS�} ��B��} ��B��� � �� ��� ���� ��� �]R� �B�� �g POLLHUP�g POLLERR�g *error-events*� g POLLIN�
g
*read-events*�g *events*�g hostS�
��g familyS���g addrS� ��g portS� ��g socketS� ��
�g AF_INET�g inet-pton�g INADDR_LOOPBACK�g listen�g sigaction�g SIGPIPE�g SIG_IGN�g make-empty-poll-set�g
poll-set-add!� g http-open�!g write-response�"g build-response�#g versionS�$
��%g codeS�&g headersS�'g content-length�('
��)( �*g bad-request�+g poll-set-revents�,g
<poll-set>�-%, �.%, �/g
poll-set-nfds�0g accept�1g
poll-set-port�2g setvbuf�3g _IOFBF�4g SO_SNDBUF�5g throw�6g interrupt�7g poll-set-remove!�8g eof-object?�9g peek-char�:g
close-port�;g with-throw-handler�<g read-request�=g read-request-body�>g catch�?g format�@g current-error-port�Af In ~a:
�Bg port�C*B �Dg print-exception�E:B �Fg http-read�Gg
<response>�HG �IG �Jg response-version�Kg
response-code�Lg memq�Mg close�Ng response-connection�Og
keep-alive�Pg keep-alive?�Qg
response-port�Rg bytevector?�Sg write-response-body�Tg error�Uf Expected a bytevector for body�Vg force-output�Wg
http-write�Xg
http-close�Yg server-impl�Z!Y �[!Y �C 5 hh/ / ] 4
'()5 4, > "