Your IP : 18.191.218.238
GOOF----LE-8-2.0�L]4h�]gguile� � gdefine-module*� � � gsystem� gbase� gsyntax� �
gfilenameS� fsystem/base/syntax.scm� gexportsS�
g%compute-initargs� gdefine-type� g
define-record� gdefine-record/keywords� grecord-case� gtransform-record�
� gset-current-module� � � gstring->symbol� gstring-trim-both� gsymbol->string� gsymbol-trim-both� glist->char-set� <>� g
trim-brackets� gmake-syntax-transformer� � � !gmacro� "g$sc-dispatch� #"� $"� %g_� &gany� '%&�� (g
syntax->datum� )(� *(� +g
datum->syntax� ,+� -+� .g
kw-arg-ref� /gprinterS� 0gcommon-slotsS� 1gbegin� 2gappend� 32� 42� 5gmap� 6gdefine� 7g
symbol-append� 8g-� 9gmake-procedure-with-setter� :glambda� ;gx� <;� =g
struct-ref� >gv� ?;>� @gstruct-set!� A>� Bgiota� Cglength� Dgsyntax-violation� ED� FD� Gf-source expression failed to match any pattern� Hgmake-record-type� Igquote� Jg list-tail� Kg
module-gensym� Lfdefrec� Mgmake-� Nglet� Ogcond� Pgnull?� Qgelse� Rg_x� Sgcar� Tgset!� Ugcdr� VR� Wgmake-struct� Xg?� Ygrecord-predicate� Zgrecord-accessor� [grecord-modifier� \gslots� ]glist� ^gcons� _gconstructor� `grecord-constructor� agargs� bgapply� c
a\� db_c� e:ad� fe� ggassq� hgerror� ifunbound slot� jgkeyword?� kgkeyword->symbol� lgmemq� mgfilter� ngpair?� ofunknown slot� pfslot already set� qftoo many initargs� rgeach-any� s&r�� t%s�� ug
syntax-object� vgr� wgtop� xw� ygribcage� zgrecord� {gclause� |z{� }xx� ~fl-3d2ad63ef-21d� fl-3d2ad63ef-21e��~��y|}���y��;��x��fl-3d2ad63ef-21a�����y�����x�����ghygiene�����uv����grtd��u�����greverse!��glp��gclauses��gout�������xxx��fl-3d2ad63ef-265��fl-3d2ad63ef-266��fl-3d2ad63ef-267�������y�����gprocess-clause�����x��fl-3d2ad63ef-225�����y�����v���fl-3d2ad63ef-221��fl-3d2ad63ef-222������y�}���x�������� ��uQ����uh����funhandled record��u�����uv�������������gfree-id�������s������ge0��ge1������fl-3d2ad63ef-26f��fl-3d2ad63ef-270������y�}���x���������
��uQ�����&���fbad else clause placement��grest�������fl-3d2ad63ef-275��fl-3d2ad63ef-276��fl-3d2ad63ef-277�������y�����x���������
��u;����uQ����sr����&���&&���r���ginfix�����fl-3d2ad63ef-22e�����y�����gtag��gfields��gexprs�������fl-3d2ad63ef-22b��fl-3d2ad63ef-22c��fl-3d2ad63ef-22d�������y�����x������������u�������geach��&&�������&�s��geq?��gf��gaccessor���������xxxxx��fl-3d2ad63ef-233��fl-3d2ad63ef-234��fl-3d2ad63ef-235��fl-3d2ad63ef-236��fl-3d2ad63ef-237���������y�����x������������
��u�����u�����uN����5��5��uv�������&&r��glet*��g processed��v����fl-3d2ad63ef-25e��fl-3d2ad63ef-25f��fl-3d2ad63ef-260�������y�����x�������� ��u�����g
struct-vtable��u�����uO���frec�frtd�g->�gunquote�fbad -> form�g<�g>�gand�greverse� gif�
�
�C5h�9r]4
54>"Gh�]44556�gsym
gpred gfilenamefsystem/base/syntax.scm�
�� �� $�� �� �� gnamegsymbol-trim-both�CRh�]456�gsym
gfilenamefsystem/base/syntax.scm�
�� �� (��
�� �� gnameg
trim-brackets�CR4 !$'*-./01454h(�]L$�L"�4L�5��C�gdef
&gfilenamefsystem/base/syntax.scm�
( �� ) ��
) (��
* /�� * ,�� + ,�� ) �� ! - �� # ) ��
&C6789:<=;?@A
h@�]44L55
���C�gcommon-slot
?gi ?gfilenamefsystem/base/syntax.scm�
/ �� 0 �� 0 !�� 0 0�� 1 0�� 0 !�� 0 �� ? CBCh��-13�$�"�$�"4545$"44O54O4 4
5555�Czgname
�grest �gname (�gopts (�gt > Pgprinter P�gcommon-slots P�gfilenamefsystem/base/syntax.scm�
#
�� $ �� $ �� $ �� % �� % �� # % �� ( % *�� ( $ �� - & �� 6 ' �� > ' �� M ' =�� P & �� V ( �� Z ( �� j / �� v 5 "�� y 5 (��� 5 "��� / ��� ( �� �
Chj] 45L4?6bgargs
gv gfilenamefsystem/base/syntax.scm� #
�� CFGh(h] 45$O@6`gy
'gtmp 'gfilenamefsystem/base/syntax.scm�
#
�� 'C5R4 !$'*-5ht]�$�CClgslot
gfilenamefsystem/base/syntax.scm�
? �� ? -�� ? )�� ? :�� C16HIh(�]("���$C�4L�5�C�gslots
%gfilenamefsystem/base/syntax.scm�
E �� F �� F �� F ;�� F 2�� F -�� F �� G �� H !�� H -�� ! H 1�� # H -�� $ H �� %gnameglp�CJCKL7M4NOPQNRSTUV
hHy]�L��LLL ���Cqgo
Egfilenamefsystem/base/syntax.scm�
L �� M �� M �� M ;�� M �� ECWXY6789ZI[h8�]4L5LLC}gsname
4gfilenamefsystem/base/syntax.scm�
T �� U �� U �� U .�� U �� U �� 4Ch�-13 �$�"�$��"454545$ "��� OQ454
4554
54545�4O5
���454O5����C�g name-form
gslots gname gprinter +g
slot-names 6gstem ?glp u�greqs ��gopts ��gtail ��
gfilenamefsystem/base/syntax.scm�
<
�� = �� = �� = %�� = �� > �� " > �� % > )�� + = �� . ? �� 6 = �� 9 A �� ? = �� C B �� J C (�� R B �� ] D )�� b D 5�� g D D�� h B �� u E ��� E ��� I ��� I &��� I ��� E ��� J ��� J $��� J ��� E ��� K
��� K ��� K $��� K ��� K
��� L ��� K
��� B ��� S ��� S $��� S ��� B ��� T �� B ��-
Chj] 45L4?6bgargs
gv gfilenamefsystem/base/syntax.scm� <
�� CFGh(h] 45$O@6`gy
'gtmp 'gfilenamefsystem/base/syntax.scm�
<
�� 'C5R4 !$'*-5ht]�$�CClgslot
gfilenamefsystem/base/syntax.scm�
` �� ` -�� ` )�� ` :�� C16HI7MN\]^Ih(�]�$���CC�gslot
#gfilenamefsystem/base/syntax.scm�
g #�� h )�� h %�� i )�� i 2�� i )�� i >�� i )�� j )��
#C_`fXY6789ZI[h8�]4L5LLC}gsname
4gfilenamefsystem/base/syntax.scm�
p �� q �� q �� q .�� q �� q �� 4Ch��-13�$�"�$��"454545$ "���4
5
45���4 54O5����C�g name-form
�gslots �gname �gprinter +�g
slot-names 6�gstem ?�gfilenamefsystem/base/syntax.scm�
]
�� ^ �� ^ �� ^ %�� ^ �� _ �� " _ �� % _ )�� + ^ �� . ` �� 6 ^ �� 9 b �� ? ^ �� C c �� J d (�� R c �� ] e )�� b e 5�� g e D�� h c �� p f �� t f �� x f �� z c �� g ��� c ��� o ��� o $��� o ��� c ��� p ��� c ��! �
Chj] 45L4?6bgargs
gv gfilenamefsystem/base/syntax.scm� ]
�� CFGh(h] 45$O@6`gy
'gtmp 'gfilenamefsystem/base/syntax.scm�
]
�� 'C5R5ghih@�]�$�"4L5$�C�$�CLL6�gslot
@gname @gt @gfilenamefsystem/base/syntax.scm�
y �� z �� z �� z (�� z �� { �� {
�� , | �� 0 {
�� 3 | !�� 8 } �� @ } ��
@Cjklgmnhopq
h��]""�(O64�5$i4�545$"4455�$
645$
6������"��t(
6����$�"���"��5"��&�gargs
�gslots �gin �g
positional �gout �gsym 1�gslot ��gfilenamefsystem/base/syntax.scm�
w
�� �� � �� y �� � �� #� �� %� �� )� �� *� �� /� "�� 1� �� 1� �� 4� �� @�
�� F� �� K� �� U� �� V� �� Z� �� ^� �� b�
�� c�
�� o� �� s� �� y� �� |� �� ~� ���� ,���� !���� ���� ����
���� ����
���� ���� ����
���� ���� ���� $���� ���� ���� ��� ��� -��� ��/ � gnameg%compute-initargs�C
R4 !$t��$��hT]L�6Lgfilenamefsystem/base/syntax.scm� � �� � ��
C���hu]��L�6mge0
ge1 gfilenamefsystem/base/syntax.scm� � �� � �� C�D���h�]��6�ge0
ge1 grest gfilenamefsystem/base/syntax.scm� � &�� � &�� � �� C�($h]C
C�+78(h(�]4L4L4555�4L5�C�gv0
%gf0 %gf1 %gfilenamefsystem/base/syntax.scm� � (��
� 7�� � L�� � O�� � 7�� � (�� � !�� � (�� $� !��
% Cs+78(h(�]4L4L4555�4L5�C�gf0
%gf1 %gfilenamefsystem/base/syntax.scm� � (��
� 7�� � L�� � O�� � 7�� � (�� � !�� � (�� $� !��
% CFG hh�]45$@45$LLLO@45$LLLO@6�gfields
agtmp
agtmp ! agtmp A agfilenamefsystem/base/syntax.scm�
� �� agnameglp�C$�h]C
Csh:]�C2ge0
ge1 CFG������hX]�CPgtmp-3d2ad63ef-23e
gtmp-3d2ad63ef-23d
Ch(p]45���Chgtag
#gf #gaccessor #ge0 #ge1 # # Ch�B]L4455OLQ4545$4?")45$4?"
4 54
5$4?"
4 5L�6:g<foo>
�gf0 �ge0 �grest �ginfix �glp 3gtmp ; zgtmp W wgtmp }�gtmp ��
gfilenamefsystem/base/syntax.scm� � ��
� '�� � �� � �� � �� }�
���� ���� �� � CFGh��]"45$O@45$O@45$@45$LLO@
6�gclauses
ygout ygtmp
ygtmp & ygtmp B ygtmp Y ygfilenamefsystem/base/syntax.scm�
� �� y gnameglp�C$����h(Q]L�CIgr
#grtd #g processed # # CFG hP�]OLQ4545$O@6�grecord
Kgclause Kglp !gtmp $ Kgtmp / Kgfilenamefsystem/base/syntax.scm� � �� � �� � �� $� �� K CFGh(j] 45$O@6bgx
'gtmp 'gfilenamefsystem/base/syntax.scm�
� �� 'C5R4 !$'*-K278�Ih��]#"�(C��$�������$
�"����$6�44L44L55��55"����44L55�"��^�"��Q"��F�gx
�grecord-stem �gslots �gin �gout �gslot �garg �gfilenamefsystem/base/syntax.scm�
� �� � �� � �� � �� � �� � �� �� �� �� ' �� + �� . �� 8 �� ; �� ? �� B �� C �� F $�� I� �� L� �� R� �� V� �� X� 2�� \� �� a� �� d 8�� g 8�� i $�� m �� u �� x
!�� z
0�� {� �� ~� ���� ���� ���� 2���� ���� ���
0���
*���
��� ��� ���� ���� ���� ��0 � gnamegfurther-predicates�C782h�]#"�(C��$�������$,�44L55�"����$6�44L44L55��55"��r�"��e���44L55�"��0"��%gx
�grecord-stem �gslots �gin �gout �gslot �garg �gslot ��gfilenamefsystem/base/syntax.scm�
�� �� �� �� �� �� �� �� �� ' �� + �� . �� 1 �� 4� �� :� �� >� �� @ 2�� D �� I �� L "�� O �� W �� Z �� ^ �� a �� b �� e $�� h �� k� �� q� �� u� �� w 2�� { ��� ��� 1��� 1��� $��� ��� ��� ��� ���! ���" ���" .���" &��� ���� ���� ���� ��� 2��� ��� ���" ���" ���! ��� ��� ��� ��; � gnameglet-clauses�CC7M845h �]�$�&L��6CC�gy
gfilenamefsystem/base/syntax.scm�
* �� + '�� + �� + 6�� + >�� + "�� , 2�� , "�� Chhx�]�$g�&O45 �$9��4�4L554L�4LO�55�C
6�4L�5�CC�gx
sgform $ Ygs . >gfilenamefsystem/base/syntax.scm�
# �� $ �� $ �� % �� % �� $ �� & �� & �� &
�� #' �� $' �� '( �� +( %�� .( 7�� .( ,�� 1� �� 7� �� ;� �� @( �� A( �� F) �� G* �� S. �� U* �� W( �� ]/ �� a/ �� d0 �� e0 �� l0 4�� n0 �� o0 ��! sgnamegtransform-expr�CQ78�N5h��]!�&C�����44L55L44LL55�� 44LL55�$
4
L5"��C�gclause
�gstem �gslots �gbody �grecord-type 3�gfilenamefsystem/base/syntax.scm�
1 �� 2 �� 2 �� 2 �� 4 �� 5 �� 6 �� 4
�� 7 �� $7 .�� %� �� +� �� /� �� 17 B�� 37 �� 37 �� 78 �� A9 �� D9 �� P9 �� Q8 �� U: �� X: �� d: �� g; �� k; �� l< �� z= �� {8 �� �gnamegprocess-clause�C��578h�]4L5LCygslot
gfilenamefsystem/base/syntax.scm�
@ �� � �� � �� � �� A �� COgQ2h�h�L-1345454�5OOOO QQQQ
4O�5��
4 5
4
5$
"4
5
�CDgtype-and-common
�grecord �gclauses �gr �grtd �g type-stem �gfurther-predicates N�glet-clauses N�gtransform-expr N�gprocess-clause N�gclauses
��gfilenamefsystem/base/syntax.scm�
�
��
� �� � �� � �� �
�� � �� �
�� � �� � "�� � �� � �� v> ���@ ���B ���@ ���> ���C ���C ���D ���D ���D ���D ���F ���F %���F ���> �� �
Chk] 45L4?6cgargs
gv gfilenamefsystem/base/syntax.scm� �
�� CFGh(i] 45$O@6agy
'gtmp 'gfilenamefsystem/base/syntax.scm�
�
�� 'C5RCjgm
(gfilenamefsystem/base/syntax.scm�
��
���
��� w
�� 9�
C6
?>