GOOF----LE-8-2.0�� ]� 4 h�I ] g guile� � g define-module*� � � g web� g server� � g filenameS�
f web/server.scm� g importsS� g srfi�
g srfi-9�
� � g gnu�
� � g rnrs� g bytevectors� � � g ice-9� g binary-ports� � � g request� � � g response� � � !g system� "g repl� #g error-handling� $!"# � %$ � &g control� '& � (' � )g iconv� *) � +* � , %(+ � -g exportsS� .g define-server-impl� /g lookup-server-impl� 0g make-server-impl� 1g server-impl?� 2g server-impl-name� 3g server-impl-open� 4g server-impl-read� 5g server-impl-write� 6g server-impl-close� 7g open-server� 8g read-client� 9g handle-request� :g sanitize-response� ;g write-client� <g close-server� =g serve-one-client� >g
run-server� ?./0123456789:;<=> � @g set-current-module� A@ � B@ � Cg gettimeofday� Dg *timer*� Eg pk� Fg
print-elapsed� Gg make-syntax-transformer� HG � IG � Jg
debug-elapsed� Kg macro� Lg $sc-dispatch� ML � NL � Og _� Pg any� QOP � Rg
*time-debug?*� Sg
syntax-object� Tg top� UT � Vg ribcage� Wg who� XW � YU � Zf
l-1e6f79399-8� [Z � \VXY[ � ]V � ^g x� _^ � `f
l-1e6f79399-5� a` � bV_Ya � cU\]b � dg hygiene� ed � fSFce � gg
*unspecified*� hSgce � ig syntax-violation� ji � ki � lf -source expression failed to match any pattern� mg server-impl� ng %make-server-impl-procedure� oOPPPPP � pg lambda� qg m-1e6f79399-12� rqT � sg
t-1e6f79399-d� tg
t-1e6f79399-e� ug
t-1e6f79399-f� vg t-1e6f79399-10� wg t-1e6f79399-11� xstuvw � yrrrrr � zf l-1e6f79399-17� {f l-1e6f79399-18� |f l-1e6f79399-19� }f l-1e6f79399-1a� ~f l-1e6f79399-1b� z{|}~ � �Vxy � �r � �f l-1e6f79399-14� �� � �V_�� � �g shift� �g proc-name� �g args� ��� � �UU � �f l-1e8ba8b5a-2ba� �f l-1e8ba8b5a-2bb� ��� � �V��� � �g key� �g value� �g name� �g formals� �g body� ������ � �UUUUU � �f l-1e8ba8b5a-2ad� �f l-1e8ba8b5a-2ae� �f l-1e8ba8b5a-2af� �f l-1e8ba8b5a-2b0� �f l-1e8ba8b5a-2b1� ������ � �V��� � �g make-procedure-name� �� � �U � �f l-1e8ba8b5a-29d� �� � �V��� � �f l-1e8ba8b5a-29c� �� � �V_Y� � �r�]��]]]]����
� �d
� �Sp�� � �U�]� � �S��e � �g open� �S��e � �g read� �S��e � �g write� �S��e � �g close� �S��e � ������ � �g make-struct� �g
m-1e6f79399-b� ��T � �g t-1e8ba8b5a-38d� �g t-1e8ba8b5a-38c� �g t-1e8ba8b5a-38b� ���� � �g m-1e8ba8b5a-38e� ��T � ���� � �f l-1e8ba8b5a-392� �f l-1e8ba8b5a-393� �f l-1e8ba8b5a-394� ���� � �V��� � �g ctor-args� �� � �f l-1e8ba8b5a-37a� �� � �V�Y� � �g ctor� �g field� ��� � �f l-1e8ba8b5a-376� �f l-1e8ba8b5a-377� ��� � �V��� � �g form� �g type-name� �g constructor-spec� �g field-names� ����� � �UUUU � �f l-1e8ba8b5a-36b� �f l-1e8ba8b5a-36c� �f l-1e8ba8b5a-36d� �f l-1e8ba8b5a-36e� ����� � �V��� � �g
record-layout� �g functional-setters� �g setters� �g copier� �g getters� �g constructor� �g getter-identifiers� �g field-identifiers� ��������� � �UUUUUUUU � �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� ��������� � �V��� � �f l-1e8ba8b5a-334� �� � �V_Y� � ���]��]�]]]��]��� � �S��� � �Sm�e � �S
�� � ��������� � ���� � �g each-any� �O��� �i � �i � �f Wrong number of arguments� �g identifier?� �� � �� � �U]� � Sn�e �g record-type-vtable� � �g
pwpwpwpwpw�g default-record-printer� � ������ � g set-struct-vtable-name!�
� �g vtable-offset-user�
� �g %server-impl?-procedure�g m-1e6f79399-27�T �g t-1e6f79399-26� � �f l-1e6f79399-2c� �V �f l-1e6f79399-29� �V_ �]�]]]]����
�Sp� �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�'&T �(''''''' �)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�0)*+,-./ �1V%(0 �2g copier-id�32 �4f l-1e8ba8b5a-476�54 �6V3Y5 �7g ctor-name�87 �9f l-1e8ba8b5a-46e�:9 �;V8Y: �<� �=f l-1e8ba8b5a-46c�>= �?V<Y> �@g layout�A@ �Bf l-1e8ba8b5a-46a�CB �DVAYC �Eg
immutable?�FE �Gf l-1e8ba8b5a-468�HG �IVFYH �Jg field-count�KJ �Lf l-1e8ba8b5a-466�ML �NVKYM �Og
getter-ids�PO �Qf l-1e8ba8b5a-463�RQ �SVPYR �Tg field-ids�UT �Vf l-1e8ba8b5a-460�WV �XVUYW �Yg predicate-name�Zg
field-spec�[E���YZ �\UUUUUU �]f l-1e8ba8b5a-453�^f l-1e8ba8b5a-454�_f l-1e8ba8b5a-455�`f l-1e8ba8b5a-456�af l-1e8ba8b5a-457�bf l-1e8ba8b5a-458�c]^_`ab �dV[\c �e�]�]1]]]]6];]?]D]I]N]S]Xd�� �fSe� �gf �hg and�iShe� �jg struct?�kSje� �lkf �mg eq?�nSme� �og
struct-vtable�pSoe� �qpf �rU] �sSmre �tnqs �uilt �vgu �wU] �xSwe �yg throw-bad-struct�zy �{y �|g %server-impl-name-procedure�}g free-id�~g
%%on-error�g m-1e6f79399-33��T ��� ��f l-1e6f79399-35��� ��V_�� ���]��]]]]���� ��S~�� ��}� ���P ��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���T ��������� ��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��������� ��V��� ��g getter��g index���� ��f l-1e8ba8b5a-3a3��f l-1e8ba8b5a-3a4���� ��V��� ���O2 ��UUU ��f l-1e8ba8b5a-39e��f l-1e8ba8b5a-39f��f l-1e8ba8b5a-3a0����� ��V��� ���]��]�]]]�]��� ��S��� ��}� ��O��P ��g ck��g err��g s���� ���� ��f l-1e6f79399-38��f l-1e6f79399-39���� ��V��� ����]��]]]]����
��S��� ��g quote��S��� ��U�]� ��Sm�e ���� ��� ��g %%index��S��� ��}� ��O��P ��f l-1e6f79399-3d��f l-1e6f79399-3e���� ��V��� ����]��]]]]����
��S��� ��S��� ���]� ��S
�e ���� ��� ��g %%copier��S��� ��}� ��O��P ��f l-1e6f79399-42��f l-1e6f79399-43���� ��V��� ����]��]]]]����
��S��� ��S��� ��g %%server-impl-set-fields��U�]� ��S��e ���� ��� ��g t-1e6f79399-32��� ��f l-1e6f79399-47��� ��V��� ����]��]]]]����
��Sp�� ����]��]�]]]�]��� ��S��� ��� ��g if��S��� ��Sm�� ��So�� ���� ��U�]� ��Sm�e ����� ��g
struct-ref��S��� ���]� ��S
�e ����� ��Sy�� ��S��� ��S2�e ���� ����� ������ ����� ��U]� ��S|�e � g %server-impl-open-procedure�g m-1e6f79399-4e�T � �f l-1e6f79399-50� �V_ �]�]]]]���� �S~� � } �
P ��]�]�]]]�]��� �S�� �
} �O
P � �f l-1e6f79399-53�f l-1e6f79399-54� �V� �]�]]]]����
�S�� �S�� �U] �Sme � � �S�� �} �O
P �f l-1e6f79399-58�f l-1e6f79399-59� �!V� �"!]�]]]]����
�#S�"� �$S�"� �%!] �&S%e �'$& �(' �)S�� �*}) �+O
*P �,f l-1e6f79399-5d�-f l-1e6f79399-5e�.,- �/V�. �0/]�]]]]����
�1S�0� �2S�0� �3U/] �4S�3e �524 �65 �7g t-1e6f79399-4d�87 �9f l-1e6f79399-62�:9 �;V8: �<;]�]]]]����
�=Sp<� �>�;]�]�]]]�]��� �?S�>� �@? �AS�>� �BSm>� �CSo>� �DC? �EU;] �FSmEe �GBDF �HS�>� �I;] �JSIe �KH?J �LSy>� �MS�>� �NS3Ee �OMN �PL?O �QAGKP �R=@Q �SU] �TS Se �Ug %server-impl-read-procedure�Vg m-1e6f79399-69�WVT �XW �Yf l-1e6f79399-6b�ZY �[V_XZ �\W][�]]]]���� �]S~\� �^}] �_^P �`�][�]�]]]�]��� �aS�`� �b}a �cO_bP �dWW �ef l-1e6f79399-6e�ff l-1e6f79399-6f�gef �hV�dg �iWh][�]]]]����
�jS�i� �kS�i� �lUh][ �mSmle �nkm �on �pS�`� �q}p �rO_qP �sf l-1e6f79399-73�tf l-1e6f79399-74�ust �vV�du �wWv][�]]]]����
�xS�w� �yS�w� �zv][ �{S ze �|y{ �}| �~S�`� �}~ ��O_P ��f l-1e6f79399-78��f l-1e6f79399-79���� ��V�d� ��W�][�]]]]����
��S��� ��S��� ��U�][ ��S��e ���� ��� ��g t-1e6f79399-68��� ��f l-1e6f79399-7d��� ��V�X� ��W�][�]]]]����
��Sp�� ����][�]�]]]�]��� ��S��� ��� ��S��� ��Sm�� ��So�� ���� ��U�][ ��Sm�e ����� ��S��� ���][ ��S �e ����� ��Sy�� ��S��� ��S4�e ���� ����� ������ ����� ��U][ ��SU�e ��g %server-impl-write-procedure��g m-1e6f79399-84���T ��� ��f l-1e6f79399-86��� ��V_�� ���]��]]]]���� ��S~�� ��}� ���P ���]��]�]]]�]��� ��S��� ��}� ��O��P ���� ��f l-1e6f79399-89��f l-1e6f79399-8a���� ��V��� ����]��]]]]����
��S��� ��S��� ��U�]� ��Sm�e ���� ��� ��S��� ��}� ��O��P ��f l-1e6f79399-8e��f l-1e6f79399-8f���� ��V��� ����]��]]]]����
��S��� ��S��� ���]� ��S �e ���� ��� ��S��� ��}� ��O��P ��f l-1e6f79399-93��f l-1e6f79399-94���� ��V��� ����]��]]]]����
��S��� ��S��� ��U�]� ��S��e ���� ��� ��g t-1e6f79399-83��� ��f l-1e6f79399-98��� ��V��� ����]��]]]]����
��Sp�� ����]��]�]]]�]��� ��S��� ��� ��S��� ��Sm�� ��So�� ���� ��U�]� ��Sm�e ����� ��S��� ���]� ��S �e ����� ��Sy�� ��S��� ��S5�e ���� ����� ������ ����� ��U]� ��S��e ��g %server-impl-close-procedure� g m-1e6f79399-9f� T � �f l-1e6f79399-a1� �V_ �]�]]]]���� �S~� �} � P �
�]�]�]]]�]��� �S�
� �} �
O P � �f l-1e6f79399-a4�f l-1e6f79399-a5� �V� �]�]]]]����
�S�� �S�� �U] �Sme � � �S�
� �} �O P �f l-1e6f79399-a9�f l-1e6f79399-aa� � V� �! ]�]]]]����
�"S�!� �#S�!� �$ ] �%S $e �&#% �'& �(S�
� �)}( �*O )P �+f l-1e6f79399-ae�,f l-1e6f79399-af�-+, �.V�- �/.]�]]]]����
�0S�/� �1S�/� �2U.] �3S�2e �413 �54 �6g t-1e6f79399-9e�76 �8f l-1e6f79399-b3�98 �:V79 �;:]�]]]]����
�<Sp;� �=�:]�]�]]]�]��� �>S�=� �?> �@S�=� �ASm=� �BSo=� �CB> �DU:] �ESmDe �FACE �GS�=� �H:] �IS He �JG>I �KSy=� �LS�=� �MS6De �NLM �OK>N �P@FJO �Q<?P �RU] �SS�Re �Tg each�UPP �VTU �WPV��XPW��YPX��Zg %%set-fields�[g dummy�\g check?�]g expr�^[\��] �_g m-1e6f79399-ba�`_T �a`���� �bf l-1e6f79399-bf�cf l-1e6f79399-c0�df l-1e6f79399-c1�ef l-1e6f79399-c2�ff l-1e6f79399-c3�gbcdef �hV^ag �i` �jf l-1e6f79399-bc�kj �lV_ik �mg t-1e8ba8b5a-3c4�ng t-1e8ba8b5a-3c6�og t-1e8ba8b5a-3c5�pmno �qg m-1e8ba8b5a-3c7�rqT �srrr �tf l-1e8ba8b5a-3cb�uf l-1e8ba8b5a-3cc�vf l-1e8ba8b5a-3cd�wtuv �xVpsw �yf l-1e8ba8b5a-3c1�zf l-1e8ba8b5a-3c2�{f l-1e8ba8b5a-3c3�|yz{ �}V��| �~�h]l�]x]]]}��
�SZ~� ��Uh]l ��Sm�e ��S2�e ��S3�e ��S4�e ��S5�e ��S6�e ������� ��g map��� ��� ��g list��PPPPPP ��g define��[����� ��g m-1e6f79399-e7���T ���UUUUU ��f l-1e6f79399-ec��f l-1e6f79399-ed��f l-1e6f79399-ee��f l-1e6f79399-ef��f l-1e6f79399-f0��f l-1e6f79399-f1�������� ��V��� ��� ��f l-1e6f79399-e9��� ��V_�� ��U�]� ��S��e ��S0�e ��S��e ��g
module-ref��g resolve-module��g error��f expected a server impl in module��f "expected a server-impl or a symbol��g call-with-error-handling��g pass-keysS��g quit��g interrupt���� ��g on-errorS��g batch-mode?��g backtrace��g debug��g
post-errorS��g
<response>��� ��� ��g
assoc-set!��g copy-tree��g %%<response>-set-fields��g extend-response��g build-response��g versionS��g <request>��� ��� ��g request-version��g headersS��g response-version��g string?��g response-content-type��g
text/plain��� ��g assq-ref��g charset��g content-type��g append��� ��� ��f utf-8��g string->bytevector��g
procedure?��g call-with-encoded-output-string��g bytevector?��g response-content-length��g bytevector-length��f bad content-length��g content-length��g request-method��g HEAD��g response-must-not-include-body?��f 4response with this status code must not include body��f unexpected body type��g vu8
� j ��g adapt-response-version��g with-stack-and-prompt��g codeS��g provided?��g posix��g catch��g sigaction��g SIGINT��g throw��g call-with-sigint��g default-prompt-tag��g %start-stack��� ��� ��g http�C 5 h s ]4
,-?5 4B > "