Your IP : 216.73.216.239
GOOF----LE-8-2.0�q]\4h�=]gguile� � gdefine-module*� � � gweb� gserver� ghttp� �
gfilenameS� fweb/server/http.scm� gimportsS�
gsrfi� gsrfi-1�
� gselectS� gfold� � � gsrfi-9�
� � grnrs� gbytevectors� � � grequest� � � gresponse� � � !� "!� #gice-9� $gpoll� %#$� &%� ' "&� (gexportsS� )� *gset-current-module� +*� ,*� -gsocket� .gPF_INET� /gSOCK_STREAM� 0g
setsockopt� 1g
SOL_SOCKET� 2gSO_REUSEADDR� 3gbind� 4gmake-default-socket� 5g
<http-server>� 6g%make-http-server-procedure� 7gmake-syntax-transformer� 87� 97� :gmake-http-server� ;gmacro� <g$sc-dispatch� =<� ><� ?g_� @gany� A?@@@� Bg
syntax-object� Cglambda� Dg
m-1e74a72e9-e� Egtop� FDE� Ggribcage� Hg
t-1e74a72e9-b� Ig
t-1e74a72e9-c� Jg
t-1e74a72e9-d� KHIJ� LFFF� Mfl-1e74a72e9-13� Nfl-1e74a72e9-14� Ofl-1e74a72e9-15� PMNO� QGKLP� RG� Sgx� TS� UF� Vfl-1e74a72e9-10� WV� XGTUW� Ygshift� Zg proc-name� [gargs� \Z[� ]E� ^]]� _fl-1e8ba8b5a-2ba� `fl-1e8ba8b5a-2bb� a_`� bG\^a� cgkey� dgvalue� egname� fgformals� ggbody� hcdefg� i]]]]]� jfl-1e8ba8b5a-2ad� kfl-1e8ba8b5a-2ae� lfl-1e8ba8b5a-2af� mfl-1e8ba8b5a-2b0� nfl-1e8ba8b5a-2b1� ojklmn� pGhio� qgmake-procedure-name� rq� s]� tfl-1e8ba8b5a-29d� ut� vGrsu� w]� xfl-1e8ba8b5a-29c� yx� zGTwy� {FQRXYRRRRbpvz
� |ghygiene� }|
� ~BC{}� ]QRX��|��B-���gpoll-idx��B����gpoll-set��B���������gmake-struct��g
m-1e74a72e9-9���E��gt-1e8ba8b5a-38d��gt-1e8ba8b5a-38c��gt-1e8ba8b5a-38b�������gm-1e8ba8b5a-38e���E�������fl-1e8ba8b5a-392��fl-1e8ba8b5a-393��fl-1e8ba8b5a-394�������G�����g ctor-args�����fl-1e8ba8b5a-37a�����G�w���gctor��gfield������fl-1e8ba8b5a-376��fl-1e8ba8b5a-377������G�^���gform��g type-name��gconstructor-spec��gfield-names��������]]]]��fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������G�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������]]]]]]]]��fl-1e8ba8b5a-343��fl-1e8ba8b5a-341��fl-1e8ba8b5a-33f��fl-1e8ba8b5a-33d��fl-1e8ba8b5a-33b��fl-1e8ba8b5a-339��fl-1e8ba8b5a-337��fl-1e8ba8b5a-335������������G�����fl-1e8ba8b5a-334�����GTw����QRXYR�RRR��R�����B��}��B5���B
�}����������~����geach-any��?ˌ��gsyntax-violation��������fWrong number of arguments��gidentifier?��������]RX��B6����������f-source expression failed to match any pattern��grecord-type-vtable��������gpwpwpw��gdefault-record-printer��������-����gset-struct-vtable-name!��������gvtable-offset-user��������g%http-server?-procedure��ghttp-server?��?@��gm-1e74a72e9-1f���E��gt-1e74a72e9-1e��������fl-1e74a72e9-24�����G�����fl-1e74a72e9-21�����GT������R�YRRRRbpvz
��BC�}��gobj��gt-1e8ba8b5a-47e��gt-1e8ba8b5a-478��gt-1e8ba8b5a-479��gt-1e8ba8b5a-47a��gt-1e8ba8b5a-47d��gt-1e8ba8b5a-47c��gt-1e8ba8b5a-47b����������gm-1e8ba8b5a-47f�E��fl-1e8ba8b5a-483�fl-1e8ba8b5a-484�fl-1e8ba8b5a-485�fl-1e8ba8b5a-486�fl-1e8ba8b5a-487�fl-1e8ba8b5a-488� fl-1e8ba8b5a-489�
�G�
�g copier-id�
�fl-1e8ba8b5a-476��G
w�g ctor-name��fl-1e8ba8b5a-46e��Gw���fl-1e8ba8b5a-46c��Gw�glayout��fl-1e8ba8b5a-46a��Gw�g
immutable?� �!fl-1e8ba8b5a-468�"!�#G w"�$gfield-count�%$�&fl-1e8ba8b5a-466�'&�(G%w'�)g
getter-ids�*)�+fl-1e8ba8b5a-463�,+�-G*w,�.g field-ids�/.�0fl-1e8ba8b5a-460�10�2G/w1�3gpredicate-name�4g
field-spec�5���34�6]]]]]]�7fl-1e8ba8b5a-453�8fl-1e8ba8b5a-454�9fl-1e8ba8b5a-455�:fl-1e8ba8b5a-456�;fl-1e8ba8b5a-457�<fl-1e8ba8b5a-458�=789:;<�>G56=�?��R�YRRRRRRRRR#R(R-R2>���@B�?}�A@�Bgand�CBB?}�Dgstruct?�EBD?}�FE@�Ggeq?�HBG?}�Ig
struct-vtable�JBI?}�KJ@�L]�R��MB5L��NHKM�OCFN�P�AO�Q]R��RB�Q��Sgthrow-bad-struct�TS�US�Vghttp-socket�Wg%http-socket-procedure�Xgfree-id�Yg
%%on-error�Zgm-1e74a72e9-2b�[ZE�\[�]fl-1e74a72e9-2d�^]�_GT\^�`[R_YRRRRbpvz�aBY`}�bXa�cb@�dg%%type�egt-1e8ba8b5a-3a5�fgt-1e8ba8b5a-3a6�ggt-1e8ba8b5a-3a7�hgt-1e8ba8b5a-3a8�igt-1e8ba8b5a-3a9�jgt-1e8ba8b5a-3aa�kgt-1e8ba8b5a-3ab�lefghijk�mgm-1e8ba8b5a-3ac�nmE�onnnnnnn�pfl-1e8ba8b5a-3b0�qfl-1e8ba8b5a-3b1�rfl-1e8ba8b5a-3b2�sfl-1e8ba8b5a-3b3�tfl-1e8ba8b5a-3b4�ufl-1e8ba8b5a-3b5�vfl-1e8ba8b5a-3b6�wpqrstuv�xGlow�yggetter�zgindex�{yz�|fl-1e8ba8b5a-3a3�}fl-1e8ba8b5a-3a4�~|}�G{^~���)��]]]��fl-1e8ba8b5a-39e��fl-1e8ba8b5a-39f��fl-1e8ba8b5a-3a0�������G������R_YRxRRRR�����Bd�}��X���?c�@��gck��gerr��gs������[[��fl-1e74a72e9-30��fl-1e74a72e9-31������G�����[�R_YRRRRbpvz
��B��}��gquote��B��}��]�R_��B5�����������g%%index��B��}��X���?c�@��fl-1e74a72e9-35��fl-1e74a72e9-36������G�����[�R_YRRRRbpvz
��B��}��B��}���R_��B
�����������g%%copier��B��}��X���?c�@��fl-1e74a72e9-3a��fl-1e74a72e9-3b������G�����[�R_YRRRRbpvz
��B��}��B��}��g%%<http-server>-set-fields��]�R_��B������������gt-1e74a72e9-2a�����fl-1e74a72e9-3f�����G�\���[�R_YRRRRbpvz
��BC�}����R_YRxRRRR�����B��}�����gif��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��gm-1e74a72e9-46���E�����fl-1e74a72e9-48�����GT�����R�YRRRRbpvz��BY�}��X����@���R�YRxRRRR�����Bd�}��X���?��@������fl-1e74a72e9-4b��fl-1e74a72e9-4c������G�������R�YRRRRbpvz
��B��}��B��}��]�R���B5�����������B��}��X���?��@��fl-1e74a72e9-50��fl-1e74a72e9-51������G�������R�YRRRRbpvz
��B��}�B��}��R��B����B��}�X�?�@�fl-1e74a72e9-55� fl-1e74a72e9-56�
�G��
��R�YRRRRbpvz
�
B�}�B�}�]R��B�����gt-1e74a72e9-45��fl-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�3gm-1e74a72e9-61�43E�54�6fl-1e74a72e9-63�76�8GT57�94R8YRRRRbpvz�:BY9}�;X:�<;@�=�R8YRxRRRR����>Bd=}�?X>�@?<?@�A44�Bfl-1e74a72e9-66�Cfl-1e74a72e9-67�DBC�EG�AD�F4ER8YRRRRbpvz
�GB�F}�HB�F}�I]ER8�JB5I��KHJ�LK�MB�=}�NXM�O?<N@�Pfl-1e74a72e9-6b�Qfl-1e74a72e9-6c�RPQ�SG�AR�T4SR8YRRRRbpvz
�UB�T}�VB�T}�WSR8�XB W��YVX�ZY�[B�=}�\X[�]?<\@�^fl-1e74a72e9-70�_fl-1e74a72e9-71�`^_�aG�A`�b4aR8YRRRRbpvz
�cB�b}�dB�b}�e]aR8�fB�e��gdf�hg�igt-1e74a72e9-60�ji�kfl-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����geach��@@������@����@����@����g%%set-fields��gdummy��gcheck?��gexpr�����y���gm-1e74a72e9-7c���E���������fl-1e74a72e9-81��fl-1e74a72e9-82��fl-1e74a72e9-83��fl-1e74a72e9-84��fl-1e74a72e9-85���������G��������fl-1e74a72e9-7e�����GT����gt-1e8ba8b5a-3c4��gt-1e8ba8b5a-3c6��gt-1e8ba8b5a-3c5�������gm-1e8ba8b5a-3c7���E�������fl-1e8ba8b5a-3cb��fl-1e8ba8b5a-3cc��fl-1e8ba8b5a-3cd�������G�����fl-1e8ba8b5a-3c1��fl-1e8ba8b5a-3c2��fl-1e8ba8b5a-3c3�������G�������R�YR�RRR���
��B��}��]�R���B5����BV����B�����B1���������gmap��������glist��gset-http-poll-idx!��g%set-http-poll-idx!-procedure��?@@��gm-1e74a72e9-90���E��gt-1e74a72e9-8e��gt-1e74a72e9-8f����������fl-1e74a72e9-95��fl-1e74a72e9-96������G��������fl-1e74a72e9-92�����GT������R�YRRRRbpvz
��BC�}��gt-1e8ba8b5a-3e6��gt-1e8ba8b5a-3e7������gm-1e8ba8b5a-3e8���E������fl-1e8ba8b5a-3ec��fl-1e8ba8b5a-3ed������G�����gsetter��ey���fl-1e8ba8b5a-3e0��fl-1e8ba8b5a-3e1��fl-1e8ba8b5a-3e2�������G�����4z��fl-1e8ba8b5a-3d7��fl-1e8ba8b5a-3d8������G�^���gfield-specs������fl-1e8ba8b5a-3d3��fl-1e8ba8b5a-3d4������G�^�����R�YR��R�R�����B��}��gval��B��}������B��}��BG�}��BI�}������]�R���B5���������gstruct-set!��B��}���R���B����������BS�}��B��}��B�����������������]R��B���gPOLLHUP�gPOLLERR�g*error-events*� gPOLLIN�
g
*read-events*�g*events*�ghostS�
��gfamilyS���gaddrS� ��gportS� ��gsocketS� ��
�gAF_INET�g inet-pton�gINADDR_LOOPBACK�glisten�g sigaction�gSIGPIPE�gSIG_IGN�gmake-empty-poll-set�g
poll-set-add!� g http-open�!gwrite-response�"gbuild-response�#gversionS�$
��%gcodeS�&gheadersS�'gcontent-length�('
��)(�*gbad-request�+gpoll-set-revents�,g
<poll-set>�-%,�.%,�/g
poll-set-nfds�0gaccept�1g
poll-set-port�2gsetvbuf�3g_IOFBF�4g SO_SNDBUF�5gthrow�6g interrupt�7gpoll-set-remove!�8geof-object?�9g peek-char�:g
close-port�;gwith-throw-handler�<gread-request�=gread-request-body�>gcatch�?gformat�@gcurrent-error-port�AfIn ~a:
�Bgport�C*B�Dgprint-exception�E:B�Fg http-read�Gg
<response>�HG�IG�Jgresponse-version�Kg
response-code�Lgmemq�Mgclose�Ngresponse-connection�Og
keep-alive�Pgkeep-alive?�Qg
response-port�Rgbytevector?�Sgwrite-response-body�Tgerror�UfExpected a bytevector for body�Vgforce-output�Wg
http-write�Xg
http-close�Ygserver-impl�Z!Y�[!Y�C5hh//] 4
'()54,>"G-./0123h@�]4
54>"G4>"GC�gfamily
@gaddr @gport @gsock @gfilenamefweb/server/http.scm�
(
�� ) �� ) �� * �� & + �� @ gnamegmake-default-socket�C4R5h�]�C�gsocket
gpoll-idx gpoll-set gfilenamefweb/server/http.scm�
.
�� gnameg%make-http-server-procedure�C6R49:;>A�hk]Ccg
t-1e74a72e9-b
g
t-1e74a72e9-c g
t-1e74a72e9-d C��:�hV]L6Nga
gfilenamefweb/server/http.scm� .
�� C?�hF]L6>gfilenamefweb/server/http.scm� .
��
C�h]C
C��hp�]45$@45$O@45$4O?$@
6
6gx
ngtmp ngtmp " ngtmp > ngfilenamefweb/server/http.scm�
.
�� nC5:R���5�4�5>"G �6i�5R5h{]�$��CCsgobj
gfilenamefweb/server/http.scm�
.
�� gnameg%http-server?-procedure�C�R49�;>�Ph6]C.gt-1e74a72e9-1e
C����hV]L6Nga
gfilenamefweb/server/http.scm� .
�� C?�hF]L6>gfilenamefweb/server/http.scm� .
��
CRh]C
C��hp�]45$@45$O@45$4O?$@
6
6gx
ngtmp ngtmp " ngtmp > ngfilenamefweb/server/http.scm�
.
�� nC5�R5UVhx]�&
�C6pgs
gfilenamefweb/server/http.scm�
.
�� gnameg%http-socket-procedure�CWR49V;>���h:]��C2gerr
gs C���h:]��C2gerr
gs C���h:]��C2gerr
gs C��h6]C.gt-1e74a72e9-2a
C��V�hV]L6Nga
gfilenamefweb/server/http.scm� .
�� C?�hF]L6>gfilenamefweb/server/http.scm� .
��
C�h]C
C��h��]145$@45$@45$@45$ @4
5$O@45$4
O?$@66�gx
�gtmp �gtmp "�gtmp 9�gtmp P�gtmp g�gtmp ��gfilenamefweb/server/http.scm�
.
�� �C5VR5U�hz]�&�C6rgs
gfilenamefweb/server/http.scm�
.
�� gnameg%http-poll-idx-procedure�C�R49�;>���h:]��C2gerr
gs C��h:]��C2gerr
gs C
h:]��C2gerr
gs C�.h6]C.gt-1e74a72e9-45
C����hV]L6Nga
gfilenamefweb/server/http.scm� .
�� C?�hF]L6>gfilenamefweb/server/http.scm� .
��
C0h]C
C��h��]145$@45$@45$@45$ @4
5$O@45$4
O?$@66�gx
�gtmp �gtmp "�gtmp 9�gtmp P�gtmp g�gtmp ��gfilenamefweb/server/http.scm�
.
�� �C5�R5U1h z]�& �C6rgs
gfilenamefweb/server/http.scm�
.
�� gnameg%http-poll-set-procedure�C2R491;>@GLh:]��C2gerr
gs COUZh:]��C2gerr
gs C]chh:]��C2gerr
gs C��h6]C.gt-1e74a72e9-60
C��1�hV]L6Nga
gfilenamefweb/server/http.scm� .
�� C?�hF]L6>gfilenamefweb/server/http.scm� .
��
C�h]C
C��h��]145$@45$@45$@45$ @4
5$O@45$4
O?$@66�gx
�gtmp �gtmp "�gtmp 9�gtmp P�gtmp g�gtmp ��gfilenamefweb/server/http.scm�
.
�� �C51R49�;>������h v]45�����Cngdummy
gcheck? gs ggetter gexpr C��h(�] 45$@6�gx
"gtmp "gfilenamefweb/server/http.scm�
.
�� "g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R5U�h �]�&�C6�gs
gval gfilenamefweb/server/http.scm�
.
�� gnameg%set-http-poll-idx!-procedure�C�R49�;>�hR]CJgt-1e74a72e9-8e
gt-1e74a72e9-8f C����hV]L6Nga
gfilenamefweb/server/http.scm� .
�� C?�hF]L6>gfilenamefweb/server/http.scm� .
��
Ch]C
C��hp�]45$@45$O@45$4O?$@
6
6gx
ngtmp ngtmp " ngtmp > ngfilenamefweb/server/http.scm�
.
�� nC5�Rii�R i
Ri
i�R45h�g-/03###$
45"#�#
454�>"G4 >"G4
54>"G
�C_ghost
�gfamily �gaddr �gport �gsocket �gpoll-set ��gfilenamefweb/server/http.scm�
:
�� 2 = �� 3 > �� U A �� b B �� w C ��� D ��� D ��� E ��� F �� �
ghostS
�gfamilyS�gaddrS �gportS �gsocketS �gnameg http-open�C R!"#$%&)h �]4�56�gport
gfilenamefweb/server/http.scm�
H
�� I �� I ,�� J ,�� I �� I �� gnamegbad-request�C*R5U1+$./0123014�56789:;<=hy]4L5L45Dqgreq
gfilenamefweb/server/http.scm�
} �� ~ �� ~ �� � �� ��
C>*hP]L6Hgfilenamefweb/server/http.scm�
� �� � ��
C?@ACDh0j-13445>"G456bgk
0gargs 0gfilenamefweb/server/http.scm�
� �� 0
C:hP]L6Hgfilenamefweb/server/http.scm�
� �� � ��
C?@AEDh0j-13445>"G456bgk
0gargs 0gfilenamefweb/server/http.scm�
� �� 0
Ch8|-134LO>"GLO6tgk
1gargs 1gfilenamefweb/server/http.scm�
� ��
� �� 1� �� 1
C�h��])�& �" 45"�45
�$�
�$34>"G�&�" 45�"����
�$�4 4
554�>"G4
�0>"G4�>"G4>"G�&�" 45�"���&�"4>"G6
�$ �"���45��&�"4>"G4455$4>"G�"��yOO6�&�" 45"��F�gserver
�gpoll-set �gidx #�grevents ,�gclient �gport M�gval Rgfilenamefweb/server/http.scm�
N
�� O �� O �� # P �� $ Q �� , Q �� 1 S
�� 6 R �� 9 V �� > U
�� ? X �� S Y �� k Y �� q Y �� v Z �� w Z �� | U
�� } b ��� b "��� b ��� b ��� d ��� d ��� d ��� f ��� f ��� f <��� f ��� g ��� g &��� g ��� h ��� i ��� i �� i �� \ ��1 ] ��3 ] ��6 j
��; R ��> l ��D l
��E p ��M p
��R s '��R s ��� u ��� u ��� u ��� t ��� w ��� x ��� x ��� { ��� P ��� P ��� P ��: �gnameg http-read�CFRIUJKLMNO h�]�&
�" 45�&�" 45��$"�&�" 45��$C��$4��$4455�C
�$
456CCCwgresponse
�gv �gt < jgkey q�gkey ~�gfilenamefweb/server/http.scm�
�
�� � �� � �� !� �� <�
�� <� �� L� �� g�
�� n� �� q� �� q� �� ~� �� ~� ���� ���� ���� %���� ���� ���� ���� ���� %���� �� �gnamegkeep-alive?�CPR!IUQRSTUPV51:h��]45�& �" 45$;45$4>"G"4>"G"4 5$E4
>"G4�& �" 4
5>"G"4>"GD�gserver
�gclient �gresponse �gbody �gresponse �gport (�gfilenamefweb/server/http.scm�
�
�� � �� � �� � �� (� �� 0� �� 1� �� ;� �� <� �� T� �� X�
�� _� �� l� �� v� �� w� ���� ���� ���� ���� ���� �� � gnameg
http-write�CWR5U1:7./hp]�& �" 45"-
�$#44�5>"G�"���C�&�" 45"���gserver
pgpoll-set pgn # Pgfilenamefweb/server/http.scm�
�
�� � �� � �� #� �� &�
�� +� �� ,� �� /� �� 6� 3�� 8� �� =� �� H� �� N� �� P� �� S� �� p� �� pgnameg
http-close�CXR iFiWiXi[�RC'gm
,grtd
�!gopen
/=/agread/=/agwrite /=/agclose /=/agfilenamefweb/server/http.scm�
��[ (
��1 .
��P 5 ��T 5
��] 6
��h 7 ��l 7
��� :
��� H
��(p N
��*��
��-q�
��/)�
��/=�
�� /f
C6
?>