GOOF----LE-8-2.0"� ]� 4 hO^ ] g guile� � g define-module*� � � g system� g repl� g coop-server� �
g filenameS� f system/repl/coop-server.scm� g importsS�
g ice-9� g match�
� � g receive�
� � g threads�
� � g q�
� � g srfi� g srfi-9� � � � g selectS� g start-repl*� !g prompting-meta-read� " ! � #" � $g server� %$ � &g run-server*� 'g make-tcp-server-socket� (g add-open-socket!� )g
close-socket!� *g guard-against-http-request� +&'()* � ,%+ � -#, � .g exportsS� /g spawn-coop-repl-server� 0g poll-coop-repl-server� 1/0 � 2g set-current-module� 32 � 42 � 5g <coop-repl-server>� 6g !%%make-coop-repl-server-procedure� 7g make-syntax-transformer� 87 � 97 � :g %make-coop-repl-server� ;g macro� <g $sc-dispatch� =< � >< � ?g _� @g any� A?@@ � Bg
syntax-object� Cg lambda� Dg m-6cff15a80cd23e5-5� Eg top� FDE � Gg ribcage� Hg t-6cff15a80cd23e5-3� Ig t-6cff15a80cd23e5-4� JHI � KFF � Lf l-6cff15a80cd23e5-a� Mf l-6cff15a80cd23e5-b� NLM � OGJKN � PG � Qg x� RQ � SF � Tf l-6cff15a80cd23e5-7� UT � VGRSU � Wg shift� Xg proc-name� Yg args� ZXY � [E � \[[ � ]f l-1e8ba8b5a-2ba� ^f l-1e8ba8b5a-2bb� _]^ � `GZ\_ � ag key� bg value� cg name� dg formals� eg body� fabcde � g[[[[[ � hf l-1e8ba8b5a-2ad� if l-1e8ba8b5a-2ae� jf l-1e8ba8b5a-2af� kf l-1e8ba8b5a-2b0� lf l-1e8ba8b5a-2b1� mhijkl � nGfgm � og make-procedure-name� po � q[ � rf l-1e8ba8b5a-29d� sr � tGpqs � u[ � vf l-1e8ba8b5a-29c� wv � xGRuw � yFOPVWPPPP`ntx
� zg hygiene� {z � |BCy{ � }g mutex� ~[OPV � z � �B}~ � �g queue� �B�~ � ��� � �g make-struct� �g m-6cff15a80cd23e5-1� ��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�u� � �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� �� � �GRu� � ��OPVWP�PPP��P��� � �B��{ � �B5~ � �B
�{ � ������ � �|�� � �g each-any� �?Ȍ� �g syntax-violation� �� � �� � �f Wrong number of arguments� �g identifier?� �� � �� � �[PV � �B6� � �� � �� � �f -source expression failed to match any pattern� �g record-type-vtable� �� � �� � �g pwpw� �g default-record-printer� �� � �� � �}� � �g set-struct-vtable-name!� �� � �� � �g vtable-offset-user� �� � �� � �g %coop-repl-server?-procedure� �g coop-repl-server?� �?@ � �g m-6cff15a80cd23e5-14� ��E � �g t-6cff15a80cd23e5-13� �� � �� � �f l-6cff15a80cd23e5-19� �� � �G��� � �f l-6cff15a80cd23e5-16� �� � �GR�� � ���P�WPPPP`ntx
� �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
u �g ctor-name� �f l-1e8ba8b5a-46e� �Gu �� �f l-1e8ba8b5a-46c� �Gu �g layout� �f l-1e8ba8b5a-46a� �Gu �g
immutable?� �f l-1e8ba8b5a-468� � Gu �!g field-count�"! �#f l-1e8ba8b5a-466�$# �%G"u$ �&g
getter-ids�'& �(f l-1e8ba8b5a-463�)( �*G'u) �+g field-ids�,+ �-f l-1e8ba8b5a-460�.- �/G,u. �0g predicate-name�1g
field-spec�2���01 �3[[[[[[ �4f l-1e8ba8b5a-453�5f l-1e8ba8b5a-454�6f l-1e8ba8b5a-455�7f l-1e8ba8b5a-456�8f l-1e8ba8b5a-457�9f l-1e8ba8b5a-458�:456789 �;G23: �<��P�WPPPPP
PPPP P%P*P/;�� �=B�<{ �>= �?g and�@B?<{ �Ag struct?�BBA<{ �CB= �Dg eq?�EBD<{ �Fg
struct-vtable�GBF<{ �HG= �I[�P� �JB5I �KEHJ �L@CK �M�>L �N[P� �OB�N �Pg throw-bad-struct�QP �RP �Sg coop-repl-server-mutex�Tg !%coop-repl-server-mutex-procedure�Ug free-id�Vg
%%on-error�Wg m-6cff15a80cd23e5-20�XWE �YX �Zf l-6cff15a80cd23e5-22�[Z �\GRY[ �]XP\WPPPP`ntx �^BV]{ �_U^ �`_@ �ag %%type�bg t-1e8ba8b5a-3a5�cg t-1e8ba8b5a-3a6�dg t-1e8ba8b5a-3a7�eg t-1e8ba8b5a-3a8�fg t-1e8ba8b5a-3a9�gg t-1e8ba8b5a-3aa�hg t-1e8ba8b5a-3ab�ibcdefgh �jg m-1e8ba8b5a-3ac�kjE �lkkkkkkk �mf l-1e8ba8b5a-3b0�nf l-1e8ba8b5a-3b1�of l-1e8ba8b5a-3b2�pf l-1e8ba8b5a-3b3�qf l-1e8ba8b5a-3b4�rf l-1e8ba8b5a-3b5�sf l-1e8ba8b5a-3b6�tmnopqrs �uGilt �vg getter�wg index�xvw �yf l-1e8ba8b5a-3a3�zf l-1e8ba8b5a-3a4�{yz �|Gx\{ �}�& �~[[[ �f l-1e8ba8b5a-39e��f l-1e8ba8b5a-39f��f l-1e8ba8b5a-3a0���� ��G}~� ���P\WPuPPP|P��� ��Ba�{ ��U� ��?`�@ ��g ck��g err��g s���� ��XX ��f l-6cff15a80cd23e5-25��f l-6cff15a80cd23e5-26���� ��G��� ��X�P\WPPPP`ntx
��B��{ ��g quote��B��{ ��[�P\ ��B5� ���� ��� ��g %%index��B��{ ��U� ��?`�@ ��f l-6cff15a80cd23e5-2a��f l-6cff15a80cd23e5-2b���� ��G��� ��X�P\WPPPP`ntx
��B��{ ��B��{ ���P\ ��B
� ���� ��� ��g %%copier��B��{ ��U� ��?`�@ ��f l-6cff15a80cd23e5-2f��f l-6cff15a80cd23e5-30���� ��G��� ��X�P\WPPPP`ntx
��B��{ ��B��{ ��g %%<coop-repl-server>-set-fields��[�P\ ��B�� ���� ��� ��g t-6cff15a80cd23e5-1f��� ��f l-6cff15a80cd23e5-34��� ��G�Y� ��X�P\WPPPP`ntx
��BC�{ ����P\WPuPPP|P��� ��B��{ ��� ��g if��B��{ ��BD�{ ��BF�{ ���� ��[�P\ ��B5� ����� ��g
struct-ref��B��{ ���P\ ��B
� ����� ��BP�{ ��B��{ ��BS� ���� ����� ������ ����� ��[P\ ��BT� ��g coop-repl-server-queue��g !%coop-repl-server-queue-procedure��g m-6cff15a80cd23e5-3b���E ��� ��f l-6cff15a80cd23e5-3d��� ��GR�� ���P�WPPPP`ntx ��BV�{ ��U� ���@ ���P�WPuPPP|P��� ��Ba�{ ��U� ��?��@ ���� ��f l-6cff15a80cd23e5-40��f l-6cff15a80cd23e5-41���� ��G��� ����P�WPPPP`ntx
��B��{ ��B��{ ��[�P� ��B5� ���� ��� ��B��{ ��U� ��?��@ ��f l-6cff15a80cd23e5-45��f l-6cff15a80cd23e5-46���� ��G��� ����P�WPPPP`ntx
��B��{ ��B��{ ���P� ��B� � �� � �B��{ �U �?�@ �f l-6cff15a80cd23e5-4a�f l-6cff15a80cd23e5-4b� �G�� � �P�WPPPP`ntx
�
B� { �B� { �[P� �
B� �
� �g t-6cff15a80cd23e5-3a� �f l-6cff15a80cd23e5-4f� �G� ��P�WPPPP`ntx
�BC{ ��P�WPuPPP|P��� �B�{ � �B�{ �BD{ �BF{ � �[P� �B5 � �!B�{ �"P� �#B" �$!# �%BP{ �&B�{ �'B� �(&' �)%( �* $) �+* �,[P� �-B�, �.g each�/@@ �0./ �1@0��2@1��3@2��4g %%set-fields�5g dummy�6g check?�7g expr�856�v7 �9g m-6cff15a80cd23e5-56�:9E �;:���� �<f l-6cff15a80cd23e5-5b�=f l-6cff15a80cd23e5-5c�>f l-6cff15a80cd23e5-5d�?f l-6cff15a80cd23e5-5e�@f l-6cff15a80cd23e5-5f�A<=>?@ �BG8;A �C: �Df l-6cff15a80cd23e5-58�ED �FGRCE �Gg t-1e8ba8b5a-3c4�Hg t-1e8ba8b5a-3c6�Ig t-1e8ba8b5a-3c5�JGHI �Kg m-1e8ba8b5a-3c7�LKE �MLLL �Nf l-1e8ba8b5a-3cb�Of l-1e8ba8b5a-3cc�Pf l-1e8ba8b5a-3cd�QNOP �RGJMQ �Sf l-1e8ba8b5a-3c1�Tf l-1e8ba8b5a-3c2�Uf l-1e8ba8b5a-3c3�VSTU �WG}~V �X�BPFWPRPPPW��
�YB4X{ �Z[BPF �[B5Z �\BSZ �]B�Z �^\] �_g map�`_ �a_ �bg list�cg
make-mutex�dg make-q�eg make-coop-repl-server�fg
lock-mutex�gf �hf �ig unlock-mutex�ji �ki �lg enq!�mg coop-repl-server-eval�ng <coop-repl>�og %%make-coop-repl-procedure�pg %make-coop-repl�q?@@@@ �rg m-6cff15a80cd23e5-91�srE �tg t-6cff15a80cd23e5-8d�ug t-6cff15a80cd23e5-8e�vg t-6cff15a80cd23e5-8f�wg t-6cff15a80cd23e5-90�xtuvw �yssss �zf l-6cff15a80cd23e5-96�{f l-6cff15a80cd23e5-97�|f l-6cff15a80cd23e5-98�}f l-6cff15a80cd23e5-99�~z{|} �Gxy~ ��s ��f l-6cff15a80cd23e5-93��� ��GR�� ��sP�WPPPP`ntx
��BC�{ ��[P� ��B}� ��g condvar��B�� ��g thunk��B�� ��g cont��B�� ������ ��g m-6cff15a80cd23e5-8b���E ���P�WP�PPP��P��� ��B��{ ��Bn� ��B
�{ ��������� ����� ��[P� ��Bo� ��g pwpwpwpw��}��� ��g %coop-repl?-procedure��g
coop-repl?��g m-6cff15a80cd23e5-a4���E ��g t-6cff15a80cd23e5-a3��� ��� ��f l-6cff15a80cd23e5-a9��� ��G��� ��f l-6cff15a80cd23e5-a6��� ��GR�� ����P�WPPPP`ntx
��BC�{ ����P�WPPPPP
PPPP P%P*P/;�� ��B��{ ��� ��B?�{ ��BA�{ ���� ��BD�{ ��BF�{ ���� ��[�P� ��Bn� ����� ����� ����� ��[P� ��B�� ��g coop-repl-mutex��g %coop-repl-mutex-procedure��g m-6cff15a80cd23e5-b0���E ��� ��f l-6cff15a80cd23e5-b2��� ��GR�� ���P�WPPPP`ntx ��BV�{ ��U� ���@ ���P�WPuPPP|P��� ��Ba�{ ��U� ��?��@ ���� ��f l-6cff15a80cd23e5-b5��f l-6cff15a80cd23e5-b6���� ��G��� ����P�WPPPP`ntx
��B��{ ��B��{ ��[�P� ��Bn� ���� ��� ��B��{ ��U� ��?��@ ��f l-6cff15a80cd23e5-ba��f l-6cff15a80cd23e5-bb���� ��G��� ����P�WPPPP`ntx
��B��{ ��B��{ ���P� ��B
� ���� ��� ��B��{ ��U� ��?��@ ��f l-6cff15a80cd23e5-bf��f l-6cff15a80cd23e5-c0���� ��G��� ����P�WPPPP`ntx
��B��{ ��B��{ ��g %%<coop-repl>-set-fields��[�P� ��B�� ���� ��� ��g t-6cff15a80cd23e5-af��� ��f l-6cff15a80cd23e5-c4��� ��G��� ����P�WPPPP`ntx
��BC�{ ����P�WPuPPP|P��� ��B��{ ��� ��B��{ ��BD�{ ��BF�{ � �� �[�P� �Bn �� �B��{ ��P� �B
�� �BP�{ � B��{ �
B� �
�� �
� ���
�[P� �B� �g coop-repl-condvar�g %coop-repl-condvar-procedure�g m-6cff15a80cd23e5-cb�E � �f l-6cff15a80cd23e5-cd� �GR �PWPPPP`ntx �BV{ �U �@ ��PWPuPPP|P��� �Ba{ �U � ?@ �! �"f l-6cff15a80cd23e5-d0�#f l-6cff15a80cd23e5-d1�$"# �%G�!$ �&%PWPPPP`ntx
�'B�&{ �(B�&{ �)[%P �*Bn) �+(* �,+ �-B�{ �.U- �/?.@ �0f l-6cff15a80cd23e5-d5�1f l-6cff15a80cd23e5-d6�201 �3G�!2 �43PWPPPP`ntx
�5B�4{ �6B�4{ �73P �8B7 �968 �:9 �;B�{ �<U; �=?<@ �>f l-6cff15a80cd23e5-da�?f l-6cff15a80cd23e5-db�@>? �AG�!@ �BAPWPPPP`ntx
�CB�B{ �DB�B{ �E[AP �FB�E �GDF �HG �Ig t-6cff15a80cd23e5-ca�JI �Kf l-6cff15a80cd23e5-df�LK �MGJL �NMPWPPPP`ntx
�OBCN{ �P�MPWPuPPP|P��� �QB�P{ �RQ �SB�P{ �TBDP{ �UBFP{ �VUQ �W[MP �XBnW �YTVX �ZB�P{ �[MP �\B[ �]ZQ\ �^BPP{ �_B�P{ �`BW �a_` �b^Qa �cSY]b �dORc �e[P �fBe �gg coop-repl-read-thunk�hg %coop-repl-read-thunk-procedure�ig m-6cff15a80cd23e5-e6�jiE �kj �lf l-6cff15a80cd23e5-e8�ml �nGRkm �ojPnWPPPP`ntx �pBVo{ �qUp �rq@ �s�PnWPuPPP|P��� �tBas{ �uUt �v?ru@ �wjj �xf l-6cff15a80cd23e5-eb�yf l-6cff15a80cd23e5-ec�zxy �{G�wz �|j{PnWPPPP`ntx
�}B�|{ �~B�|{ �[{Pn ��Bn ��~� ��� ��B�s{ ��U� ��?r�@ ��f l-6cff15a80cd23e5-f0��f l-6cff15a80cd23e5-f1���� ��G�w� ��j�PnWPPPP`ntx
��B��{ ��B��{ ���Pn ��B � ���� ��� ��B�s{ ��U� ��?r�@ ��f l-6cff15a80cd23e5-f5��f l-6cff15a80cd23e5-f6���� ��G�w� ��j�PnWPPPP`ntx
��B��{ ��B��{ ��[�Pn ��B�� ���� ��� ��g t-6cff15a80cd23e5-e5��� ��f l-6cff15a80cd23e5-fa��� ��G�k� ��j�PnWPPPP`ntx
��BC�{ ����PnWPuPPP|P��� ��B��{ ��� ��B��{ ��BD�{ ��BF�{ ���� ��[�Pn ��Bn� ����� ��B��{ ���Pn ��B � ����� ��BP�{ ��B��{ ��Bg� ���� ����� ������ ����� ��[Pn ��Bh� ��g coop-repl-cont��g %coop-repl-cont-procedure��g m-6cff15a80cd23e5-101���E ��� ��f l-6cff15a80cd23e5-103��� ��GR�� ���P�WPPPP`ntx ��BV�{ ��U� ���@ ���P�WPuPPP|P��� ��Ba�{ ��U� ��?��@ ���� ��f l-6cff15a80cd23e5-106��f l-6cff15a80cd23e5-107���� ��G��� ����P�WPPPP`ntx
��B��{ ��B��{ ��[�P� ��Bn� ���� ��� ��B��{ ��U� ��?��@ ��f l-6cff15a80cd23e5-10b��f l-6cff15a80cd23e5-10c���� ��G��� ����P�WPPPP`ntx
��B��{ ��B��{ ���P� ��B � ���� ��� ��B��{ ��U� ��?��@ ��f l-6cff15a80cd23e5-110��f l-6cff15a80cd23e5-111���� ��G��� ����P�WPPPP`ntx
��B��{ ��B��{ ��[�P� ��B�� ���� ��� ��g t-6cff15a80cd23e5-100��� ��f l-6cff15a80cd23e5-115��� ��G��� ����P�WPPPP`ntx
��BC�{ ����P�WPuPPP|P��� ��B��{ ��� ��B��{ � BD�{ �BF�{ �� �[�P� �Bn � �B��{ ��P� �B � � �
BP�{ �B��{ �B� �
�
�
�� ��� �[P� �B� �g m-6cff15a80cd23e5-11c�E ����� �f l-6cff15a80cd23e5-121�f l-6cff15a80cd23e5-122�f l-6cff15a80cd23e5-123�f l-6cff15a80cd23e5-124�f l-6cff15a80cd23e5-125� �G8 � �f l-6cff15a80cd23e5-11e� � GR �!�P WPRPPPW��
�"B4!{ �#[P �$Bn# �%B�# �&B# �'Bg# �(B�# �)%&'( �*g set-coop-repl-read-thunk!�+g $%set-coop-repl-read-thunk!-procedure�,g m-6cff15a80cd23e5-130�-,E �.g t-6cff15a80cd23e5-12e�/g t-6cff15a80cd23e5-12f�0./ �1-- �2f l-6cff15a80cd23e5-135�3f l-6cff15a80cd23e5-136�423 �5G014 �6- �7f l-6cff15a80cd23e5-132�87 �9GR68 �:-5P9WPPPP`ntx
�;BC:{ �<g t-1e8ba8b5a-3e6�=g t-1e8ba8b5a-3e7�><= �?g m-1e8ba8b5a-3e8�@?E �A@@ �Bf l-1e8ba8b5a-3ec�Cf l-1e8ba8b5a-3ed�DBC �EG>AD �Fg setter�GcvF �Hf l-1e8ba8b5a-3e0�If l-1e8ba8b5a-3e1�Jf l-1e8ba8b5a-3e2�KHIJ �LGG~K �M1w �Nf l-1e8ba8b5a-3d7�Of l-1e8ba8b5a-3d8�PNO �QGM\P �Rg field-specs�S�R �Tf l-1e8ba8b5a-3d3�Uf l-1e8ba8b5a-3d4�VTU �WGS\V �X�5P9WPELPQPW�� �YB�X{ �Zg val�[BZX{ �\Y[ �]B�X{ �^BDX{ �_BFX{ �`_Y �a[5P9 �bBna �c^`b �dg struct-set!�eBdX{ �f5P9 �gB f �heYg[ �iBPX{ �jB�X{ �kB*a �ljk �miYl �n]chm �o;\n �p[P9 �qB+p �rg set-coop-repl-cont!�sg %set-coop-repl-cont!-procedure�tg m-6cff15a80cd23e5-140�utE �vg t-6cff15a80cd23e5-13e�wg t-6cff15a80cd23e5-13f�xvw �yuu �zf l-6cff15a80cd23e5-145�{f l-6cff15a80cd23e5-146�|z{ �}Gxy| �~u �f l-6cff15a80cd23e5-142�� ��GR~� ��u}P�WPPPP`ntx
��BC�{ ���}P�WPELPQPW�� ��B��{ ��BZ�{ ���� ��B��{ ��BD�{ ��BF�{ ���� ��[}P� ��Bn� ����� ��Bd�{ ��}P� ��B � ������ ��BP�{ ��B��{ ��Br� ���� ����� ������ ����� ��[P� ��Bs� ��g make-condition-variable��g make-coop-repl��g wait-condition-variable��g error��f 2coop-repl-read: condvar signaled, but thunk is #f!��g coop-repl-read��g coop-repl-prompt��g store-repl-cont��g *repl-stack*��g current-module��f "coop-reader: read-thunk is not #f!��g signal-condition-variable��g make-coop-reader��g eval��g reader-loop��g q-empty?��g deq!��� ��� ��f no matching pattern��g new-repl��g start-repl-client��g catch��� ��� ��g call-with-new-thread��� ��� ��g %thread-handler��� ��� ��g current-language��g start-coop-repl��g make-coop-client-proc��g run-coop-repl-server��g
close-fdes��g fileno��g with-continuation-barrier��g current-input-port��g current-output-port��g current-error-port��g current-warning-port��g
parameter?��� ��� ��g scm-error��g wrong-type-arg��f parameterize��f Not a parameter: ~S��g save-module-excursion�C 5 h�` ]4
-.15 44 > "