Uname: Linux web3.us.cloudlogin.co 5.10.226-xeon-hst #2 SMP Fri Sep 13 12:28:44 UTC 2024 x86_64
Software: Apache
PHP version: 8.1.31 [ PHP INFO ] PHP os: Linux
Server Ip: 162.210.96.117
Your Ip: 3.14.252.58
User: edustar (269686) | Group: tty (888)
Safe Mode: OFF
Disable Function:
NONE

name : syntax.go
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�	0gcommon-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�	ifunbound slot�	jgkeyword?�	kgkeyword->symbol�	lgmemq�	mgfilter�	ngpair?�	ofunknown 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�gcommon-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		6gstem		?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			#		#	Ch�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/	��	d0	��	e0	 ��	l0	4��	n0	 ��	o0	��!		sgnamegtransform-expr�CQ78�N5h��]!�&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	.��	%�	��	+�	��	/�	��	17	B��	37	��	37	��	78	��	A9	��	D9	 ��	P9	��	Q8	��	U:	��	X:	��	d:	��	g;	��	k;	��	l<	��	z=	��	{8	��	�gnamegprocess-clause�C��578h�]4L5LCygslot
		gfilenamefsystem/base/syntax.scm�
@	��	�	��	�	��	�	��	A	��		COgQ2h�h�L-1345454�5OOOO	QQQQ		
4O�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
© 2025 GrazzMean