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: 18.220.156.180
User: edustar (269686) | Group: tty (888)
Safe Mode: OFF
Disable Function:
NONE

name : srfi-9.go
GOOF----LE-8-2.0�s]�4hG3]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-9�	�		gfilenameS�	
fsrfi/srfi-9.scm�	gimportsS�	gsrfi-1�	
�	
�	gsystem�	gbase�	gck�	�	�	�	gexportsS�	gdefine-record-type�	�	gset-current-module�	�	�	gcond-expand-provide�	gcurrent-module�	�	gmake-syntax-transformer�	�	 �	!gdefine-inlinable�	"gmacro�	#g$sc-dispatch�	$#�	%#�	&gany�	'geach-any�	(&'��	)('��	*&)��	+g
syntax-object�	,gdefine-tagged-inlinable�	-gtop�	.-�	/gribcage�	0gdummy�	1gname�	2gformals�	3gbody�	40123�	5gm-1e8ba8b5a-25b�	65-�	76...�	8fl-1e8ba8b5a-260�	9fl-1e8ba8b5a-261�	:fl-1e8ba8b5a-262�	;fl-1e8ba8b5a-263�	<89:;�	=/47<�	>/�	?gx�	@?�	A6�	Bfl-1e8ba8b5a-25d�	CB�	D/@AC�	E.=>D�	Fghygiene�	GF�	H+,EG�	Igsyntax-violation�	JI�	KI�	Lf-source expression failed to match any pattern�	Mg
%%on-error�	N&&�	Og%%type�	Pggetter-type�	Qgfree-id�	Rgquote�	Sgm-1e8ba8b5a-274�	TS-�	UT�	Vfl-1e8ba8b5a-276�	WV�	X/@UW�	Y.>X�	Z+RYG�	[QZ�	\[&�	]&&\\�	^gs�	_ggetter�	`gerr�	a0^_`�	bT...�	cfl-1e8ba8b5a-279�	dfl-1e8ba8b5a-27a�	efl-1e8ba8b5a-27b�	ffl-1e8ba8b5a-27c�	gcdef�	h/abg�	i.h>X�	j+MiG�	k+OiG�	lg%%index�	mggetter-index�	ngm-1e8ba8b5a-281�	on-�	po�	qfl-1e8ba8b5a-283�	rq�	s/@pr�	t.>s�	u+RtG�	vQu�	wv&�	x&&ww�	yo...�	zfl-1e8ba8b5a-286�	{fl-1e8ba8b5a-287�	|fl-1e8ba8b5a-288�	}fl-1e8ba8b5a-289�	~z{|}�	/ay~��.>s��+M�G��+l�G��g%%copier��g
getter-copier��gm-1e8ba8b5a-28e���-�����fl-1e8ba8b5a-290�����/@����.>���+R�G��Q����&��&&�����...��fl-1e8ba8b5a-293��fl-1e8ba8b5a-294��fl-1e8ba8b5a-295��fl-1e8ba8b5a-296��������/a����.�>���+M�G��+��G��g_��geach���N���)��������gidentifier?��g
datum->syntax��g
symbol-append��g%��g
syntax->datum��g
-procedure��ggenerate-temporaries��&'��gbegin��g	proc-name��gargs������..��fl-1e8ba8b5a-2ba��fl-1e8ba8b5a-2bb������/�����gkey��gvalue����123��.....��fl-1e8ba8b5a-2ad��fl-1e8ba8b5a-2ae��fl-1e8ba8b5a-2af��fl-1e8ba8b5a-2b0��fl-1e8ba8b5a-2b1���������/�����gmake-procedure-name�����.��fl-1e8ba8b5a-29d�����/�����.��fl-1e8ba8b5a-29c�����/@����.>>>>����	��+��G��gdefine��+��G��g
define-syntax��+��G��glambda��+��G��+?�G�����gsyntax-case��+��G��+M�G��gappend��������gmap��������+��G��+`�G������+^�G�����gsyntax��+��G��+�G��+R�G��ga��+��G��g...��+��G�������+I�G��fWrong number of arguments��+��G������+��G������gdisplay��f#<��grecord-type-name��grecord-type-descriptor��f ��f: ��gwrite��grecord-type-fields��f>��gdefault-record-printer��gthrow��gwrong-type-arg��fWrong type argument: ~S��gthrow-bad-struct��g%%��g-set-fields��gmake-copier-id��g%%set-fields��&����&���'���&�����gevery�glist�gfor-each�gfind�gfree-identifier=?�funknown getter�	g
struct-ref�
gt-1e8ba8b5a-32b�
�gm-1e8ba8b5a-32c�
-�
�fl-1e8ba8b5a-32f��/�gindex�_�fl-1e8ba8b5a-329�fl-1e8ba8b5a-32a��/��glookup��fl-1e8ba8b5a-2fe��/��gcopier-name�ggetter+exprs�� fl-1e8ba8b5a-2f8�!fl-1e8ba8b5a-2f9�" !�#/�"�$g	type-name�%g	getter-id�&gcheck?�'gexpr�($%&^_'�)......�*fl-1e8ba8b5a-2ec�+fl-1e8ba8b5a-2ed�,fl-1e8ba8b5a-2ee�-fl-1e8ba8b5a-2ef�.fl-1e8ba8b5a-2f0�/fl-1e8ba8b5a-2f1�0*+,-./�1/()0�2fl-1e8ba8b5a-2dc�32�4/@�3�5.>>#1>4
�6+	5G�7gfilter�8glength�9fduplicate getter�:giota�;gmake-struct�<gt-1e8ba8b5a-31f�=<�>gm-1e8ba8b5a-320�?>-�@?�Afl-1e8ba8b5a-324�BA�C/=@B�D.>C#1>4�E+;DG�F+
DG�Gghere�Hgunsafe-expr�IH�Jfl-1e8ba8b5a-317�KJ�L/I�K�M.>L#1>4�N+GMG�Ogif�Pgt-1e8ba8b5a-319�QP�Rgm-1e8ba8b5a-31a�SR-�TS�Ufl-1e8ba8b5a-31d�VU�W/QTV�X.>W>L#1>4
�Y+OXG�Zgeq?�[+ZXG�\g
struct-vtable�]+\XG�^+�XG�_+RXG�`g%define-record-type�a&(��b&a��c&b��d&c��e�d��f&&��g&f��h�g��if invalid record definition syntax�jgboolean?�kfexpected type name�lfinvalid constructor spec�mfexpected predicate name�n&&&�ofinvalid field spec�pgstring-concatenate�qg	make-list�rfpr�sfpw�tgmemq�uf!unknown field in constructor spec�vgassq-ref�w&&'�xgt-1e8ba8b5a-38d�ygt-1e8ba8b5a-38c�zgt-1e8ba8b5a-38b�{xyz�|gm-1e8ba8b5a-38e�}|-�~}}}�fl-1e8ba8b5a-392��fl-1e8ba8b5a-393��fl-1e8ba8b5a-394������/{~���g	ctor-args�����fl-1e8ba8b5a-37a�����/�����gctor��gfield������fl-1e8ba8b5a-376��fl-1e8ba8b5a-377������/�����gform��gconstructor-spec��gfield-names���$����....��fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������/�����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������������/�����fl-1e8ba8b5a-334�����/@����.>�>>>��>�����+!�G��+;�G��+
�G��g	copier-id�����fl-1e8ba8b5a-476�����/�����g	ctor-name�����fl-1e8ba8b5a-46e�����/��������fl-1e8ba8b5a-46c�����/�����glayout�����fl-1e8ba8b5a-46a�����/�����g
immutable?�����fl-1e8ba8b5a-468�����/�����gfield-count�����fl-1e8ba8b5a-466�����/�����g
getter-ids�����fl-1e8ba8b5a-463�����/�����g	field-ids�����fl-1e8ba8b5a-460�����/�����gpredicate-name��g
field-spec����$�����fl-1e8ba8b5a-453��fl-1e8ba8b5a-454��fl-1e8ba8b5a-455��fl-1e8ba8b5a-456��fl-1e8ba8b5a-457��fl-1e8ba8b5a-458����������/�)���.>>>>�>�>�>�>�>�>�>������+G�G��gmake-struct-layout��&&&&&&&��gt-1e8ba8b5a-3a5��gt-1e8ba8b5a-3a6��gt-1e8ba8b5a-3a7��gt-1e8ba8b5a-3a8��gt-1e8ba8b5a-3a9��gt-1e8ba8b5a-3aa��gt-1e8ba8b5a-3ab�����������gm-1e8ba8b5a-3ac���-�����������fl-1e8ba8b5a-3b0��fl-1e8ba8b5a-3b1��fl-1e8ba8b5a-3b2��fl-1e8ba8b5a-3b3��fl-1e8ba8b5a-3b4��fl-1e8ba8b5a-3b5��fl-1e8ba8b5a-3b6�����������/����fl-1e8ba8b5a-3a3�fl-1e8ba8b5a-3a4��/��$���...�fl-1e8ba8b5a-39e�fl-1e8ba8b5a-39f�fl-1e8ba8b5a-3a0�	�
/	�.>�>>>>
���+,G�
+OG�+lG�+�G�+^G��+OG�+ZG�+\G��+	G�+�G�+RG�gdefine-syntax-rule�gt-1e8ba8b5a-3c4�gt-1e8ba8b5a-3c6�gt-1e8ba8b5a-3c5��gm-1e8ba8b5a-3c7�-� �!fl-1e8ba8b5a-3cb�"fl-1e8ba8b5a-3cc�#fl-1e8ba8b5a-3cd�$!"#�%/ $�&fl-1e8ba8b5a-3c1�'fl-1e8ba8b5a-3c2�(fl-1e8ba8b5a-3c3�)&'(�*/)�+.>%>>>*��	�,++G�-+&+G�.+^+G�/+_+G�0+'+G�1/0�2+�+G�3-.12�4+�+G�5g
filter-map�6gt-1e8ba8b5a-405�76�8gm-1e8ba8b5a-406�98-�:9�;fl-1e8ba8b5a-409�<;�=/7:<�>gsetter�?1_>�@fl-1e8ba8b5a-3ff�Afl-1e8ba8b5a-400�Bfl-1e8ba8b5a-401�C@AB�D/?C�E��Ffl-1e8ba8b5a-3f6�Gfl-1e8ba8b5a-3f7�HFG�I/E�H�Jgfield-specs�K�J�Lfl-1e8ba8b5a-3f2�Mfl-1e8ba8b5a-3f3�NLM�O/K�N�P.>=D>I>O��
�Q+!PG�R+^PG�Sgval�T+SPG�URT�V+PG�WT�Xgt-1e8ba8b5a-3e6�Ygt-1e8ba8b5a-3e7�ZXY�[gm-1e8ba8b5a-3e8�\[-�]\\�^fl-1e8ba8b5a-3ec�_fl-1e8ba8b5a-3ed�`^_�a/Z]`�bfl-1e8ba8b5a-3e0�cfl-1e8ba8b5a-3e1�dfl-1e8ba8b5a-3e2�ebcd�f/?e�gfl-1e8ba8b5a-3d7�hfl-1e8ba8b5a-3d8�igh�j/E�i�k$J�lfl-1e8ba8b5a-3d3�mfl-1e8ba8b5a-3d4�nlm�o/k�n�p.>af>j>o��
�q+!pG�r+^pG�s+SpG�trs�u+OpG�v+ZpG�w+\pG�xwr�ygstruct-set!�z+ypG�{s�|+�pG�}+RpG�~&&&&'&'�gt-1e8ba8b5a-47e��gt-1e8ba8b5a-478��gt-1e8ba8b5a-479��gt-1e8ba8b5a-47a��gt-1e8ba8b5a-47d��gt-1e8ba8b5a-47c��gt-1e8ba8b5a-47b����������gm-1e8ba8b5a-47f���-�����������fl-1e8ba8b5a-483��fl-1e8ba8b5a-484��fl-1e8ba8b5a-485��fl-1e8ba8b5a-486��fl-1e8ba8b5a-487��fl-1e8ba8b5a-488��fl-1e8ba8b5a-489�����������/�����.>�>>>>�>�>�>�>�>�>�>������+��G��+��G��glet��+��G��grtd��+��G��gmake-struct/no-tail��+��G��grecord-type-vtable��+��G��+R�G��+��G��gset-struct-vtable-name!��+��G��+y�G��g+��+��G��+	�G��gvtable-offset-user��+��G����������+!�G��gobj��+��G�����gand��+��G��gstruct?��+��G������+Z�G��+\�G������gpred��gfields��01�����gm-1e8ba8b5a-4a3���-���....��fl-1e8ba8b5a-4a8��fl-1e8ba8b5a-4a9��fl-1e8ba8b5a-4aa��fl-1e8ba8b5a-4ab��fl-1e8ba8b5a-4ac���������/��������fl-1e8ba8b5a-4a5�����/@����.�>���+`�G��+�G��+�G�C5h�<�]4	
54>"G4i4i5>"G4 !"%*Hhf]����C^gdummy
		gname		gformals			gbody						CKLh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-9.scm�
	J
��		"g
macro-typegsyntax-rules�gpatternsgnamegformalsg...gbodyg...C5!R4 M"%Nh>]C6gdummy
		gerr					CKLh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-9.scm�
	R
��		"g
macro-typegsyntax-rules�gpatternsgerrC5MROR4 P"%]jkha]CYgdummy
		gs		ggetter			gerr						CKLh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-9.scm�
	V	��		"g
macro-typegsyntax-rules�gpatternsgsgquoteggettergquotegerrC5PRlR4 m"%x��ha]CYgdummy
		gs		ggetter			gerr						CKLh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-9.scm�
	\	��		"g
macro-typegsyntax-rules�gpatternsgsgquoteggettergquotegerrC5mR�R4 �"%���ha]CYgdummy
		gs		ggetter			gerr						CKLh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-9.scm�
	b	��		"g
macro-typegsyntax-rules�gpatternsgsgquoteggettergquotegerrC5�R4 ,"%�KL�h�]6�gkey
		gvalue		gname			gformals			gbody			gfilenamefsrfi/srfi-9.scm�		o	��			C������%������������������h(X]���CPgtmp-1e8ba8b5a-2c8
		$gtmp-1e8ba8b5a-2c7		$		$	C�������hxC]L�L��LL�4	4
LL5�
LL���L��
5���C;g	proc-name
		xgargs		x		x	CKLhX]4445554545$	O@
6�gkey
		Rgvalue		Rgname			Rgformals			Rgbody			Rgtmp		#	Rgtmp		.	Rgfilenamefsrfi/srfi-9.scm�		i	��		j	��		j	$��	
	j	'��		k	$��		j	��		i	��		q	!��	#	p	��
		R	Ch@b]	45"	6$4?$@"���"���Zgx
		9gtmp		9gfilenamefsrfi/srfi-9.scm�
	g	��		9C5,R���������
h��]4>"G44455>"G"l("w4>"G4�>"G4>"G4�>"G��"���4455
"��	6�gs
	�gp	�gfields		8�goff		8�gfilenamefsrfi/srfi-9.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	%�	��	,�	��	8�	��	>�	��	C�	��	G�	��	N�	��	W�	��	\�	��	c�	��	l�	��	p�	��	w�	����	����	
����	����	����	����	����	����	����	)����	����	����	����	��"	�	gnamegdefault-record-printer�C�R���h�]6�gs
		gwho		gfilenamefsrfi/srfi-9.scm�
�
��	�		��	
�		��	�	#��	�		��	�	��			gnamegthrow-bad-struct�C�R�����h�]44556�g	type-name
		gfilenamefsrfi/srfi-9.scm�
�
��	�	��	�	 ��	�	$��	�	 ��	�	��	�	��		gnamegmake-copier-id�C�R4 �"%KL�h�]6�g	type-name
		
g	getter-id		
gcheck?			
gs			
ggetter			
gexpr			
gfilenamefsrfi/srfi-9.scm�	
�	��		
	C���hd]L6\g	getter-id
		
gfilenamefsrfi/srfi-9.scm�
�	��	
�	!��		
CIh(�]	4OL5$CLL6~gid
		'gt		'gfilenamefsrfi/srfi-9.scm�
�	��	�	��	�	��	!�	&��	'�	��		'C�67hg]L�6_gg+e
		gfilenamefsrfi/srfi-9.scm�
�	��		�	2��	�	��		C8I9hP�]L4OL545
�$C�$���CLL6�ggetter
		Kgindex		Kgdefault-expr			Kgresults			Kgkey		$	Kgfilenamefsrfi/srfi-9.scm�
�	#��	�	%��	�	��	�	��	�	��	$�	
��	<�	��	E�	"��	K�	��
		K	C:8%'EFh7]L���C/gt-1e8ba8b5a-31f
				CKL�NY[]^_h��]&4455454LO>"G4LO4	4
55545		$4
O	?"
45	45$/45		CC�g	type-name
	�g	getter-id	�gcheck?		�gs		�ggetter		�gexpr		�gcopier-name		�ggetter+exprs		�gtmp		Z�gtmp			e�gtmp	��gtmp		��gfilenamefsrfi/srfi-9.scm�	�	��	�	)��	�	��	�	��	�		��	;�	��	M�	#��	P�	)��	X�	#��	Z�	��	Z�	����		����	����	����	����	��	�	Ch@c]	45"	6$4?$O@"���"���[gx
		>gtmp		>gfilenamefsrfi/srfi-9.scm�
�	��		>C5�R4 `"%ehI%f�hj]6bgmacro
		gargs		gfilenamefsrfi/srfi-9.scm�	O	��			CKLih8�]45$4?"
456�g
immutable?
		3gform		3grest			3gtmp		
	-gfilenamefsrfi/srfi-9.scm�	/P	��	3M	��		3	CKLj��I%f�hj]6bgmacro
		gargs		gfilenamefsrfi/srfi-9.scm�		/��			CKLk(�hj]6bgmacro
		gargs		gfilenamefsrfi/srfi-9.scm�		/��			Cl�hi]�6agctor
		
gargs		
gfilenamefsrfi/srfi-9.scm�	
 	��		
	Ch>]C6gctor
		gargs					C�hj]6bgmacro
		gargs		gfilenamefsrfi/srfi-9.scm�		/��			Cm%NhA]C9gfield
		ggetter					CnhU]CMgfield
		ggetter		gsetter						CIf�hj]6bgmacro
		gargs		gfilenamefsrfi/srfi-9.scm�		/��			CKLohh�]45$@45$@4L5$4?"
4	
L5L6�gspec
		cgtmp		cgtmp		"	cgtmp		;	[gfilenamefsrfi/srfi-9.scm�
&	��	]*	*��	c	��		cCh@]4455$'45$"4445$4?"
4	5
5$�45"8445$4?"
4	5
5"($4?$4?""���""���$^45$"4445$4?"
4	55$
O6CCCC�g
immutable?
	;gform	;g	type-name		;gconstructor-spec		;gpredicate-name		;g
field-spec		;gt			]gtmp		2	Rgtmp		j�gtmp		|�gt	�"gtmp	�gfilenamefsrfi/srfi-9.scm�		��		��		��			��		��		��	'	��	T	 ��	Z	��	a		��	q	���"	!���	���		���$	���$	���	��%	 ��	��&		��3&	��	;	C�%Nh@]C8gname
		ggetter					CnhT]CLgname
		ggetter		gsetter						CKLh@}]45$@45$@6ug
field-spec
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-9.scm�
�	��		9C%Nh@]C8gname
		ggetter					CnhT]CLgname
		ggetter		gsetter						CKLh@}]45$@45$@6ug
field-spec
		9gtmp		9gtmp		"	9gfilenamefsrfi/srfi-9.scm�
�	��		9C8�pqrs%(h>]C6gctor
		gargs					CKL��hj]6bgctor
		
gfield		
gfilenamefsrfi/srfi-9.scm�	
�		��		
	C��tI%f�hj]6bgmacro
		gargs		gfilenamefsrfi/srfi-9.scm�	�	+��			CKLu
hh�]454L5$"?44L5$4?"
4L5	L>"G�C�gfield
		hgname			hgt			bgtmp		,	Lgfilenamefsrfi/srfi-9.scm�
�	��	�	-��		�	!��	�	'��	�	#��	!�	'��	N�	(��	W�	'��	g�	#��
		hCvh_]L6Wgname
		
gfilenamefsrfi/srfi-9.scm�
�	$��	
�	&��		
C%w���hq]���Cigt-1e8ba8b5a-38d
		gt-1e8ba8b5a-38c		gt-1e8ba8b5a-38b						CKL	hP�]4LLO5LL4OL545$@6�gctor
		Kgfield		Kg	ctor-args			Kgtmp		)	Kgtmp		4	Kgfilenamefsrfi/srfi-9.scm�	�	��	�		��	�	��	)�	��		K	C���%�

hP�]�	

C�gt-1e8ba8b5a-3a5
		Jgt-1e8ba8b5a-3a6		Jgt-1e8ba8b5a-3a7			Jgt-1e8ba8b5a-3a8			Jgt-1e8ba8b5a-3a9			Jgt-1e8ba8b5a-3aa			Jgt-1e8ba8b5a-3ab			J		J	CKLh8�]LLL45$@6�ggetter
		5gindex		5gtmp			5gtmp			5gfilenamefsrfi/srfi-9.scm�
�	��	�	��		5	C:n,34hq]����Cigt-1e8ba8b5a-3c4
		gt-1e8ba8b5a-3c6		gt-1e8ba8b5a-3c5						C5%Nh@]C8gname
		ggetter					CnQUVRWh T]�L�CLgname
		ggetter		gsetter						CKLh@�]45$@45$LO@6�g
field-spec
		>gindex		>gtmp			>gtmp		"	>gfilenamefsrfi/srfi-9.scm�
	��		>	C%Nh@]C8gname
		ggetter					Cn%Nqtuvxzr{|}h8T]L����	
LCLgt-1e8ba8b5a-3e6
		4gt-1e8ba8b5a-3e7		4		4	CKLh0�]LL45$O@6�gname
		0ggetter		0gsetter			0gtmp				0gtmp			0gfilenamefsrfi/srfi-9.scm�		�	��		0	CKLh@�]45$@45$
LO@6�g
field-spec
		@gindex		@gtmp			@gtmp		"	@gfilenamefsrfi/srfi-9.scm�
�	��		@	C~�������������������h��]LL	L
����
L�L4�5����C�gt-1e8ba8b5a-47e
		gt-1e8ba8b5a-478		gt-1e8ba8b5a-479			gt-1e8ba8b5a-47a			gt-1e8ba8b5a-47d			gt-1e8ba8b5a-47c			gt-1e8ba8b5a-47b						Ch��]V45454545	44	$"	55
454
5$4?"
4
545
4
5"4
5"3$)4?$4O?""���""���44
554
O44555
4
5$4?"
4
5	$4
O44555"4O445554
5$
O@
6�g
immutable?
	�gform	�g	type-name		�gconstructor-spec		�gpredicate-name		�g
field-spec		�g	field-ids		�g
getter-ids		�gfield-count		�g
immutable?			(�glayout	
	D�gfield-names		O�gtmp		Z	zg	ctor-name		z�g	copier-id	
��gtmp	��gtmp	=gtmp	:gtmp	~�gtmp	��gfilenamefsrfi/srfi-9.scm�	�	��	,	��	�	��	,	��	.	��	,	��	"/	��	(,	��	+	��	.	��	8	��	:	!��	@	&��	B	��	D	��	D,	��	G1	��	O,	��	}4	���,	���;	���;	4���;	����	����	����	���	���	���	��CI	��D	��P
	��S
	��[
	��]	��b�	��n	��q	��y	��{�	��~5	
��*	�	C	hPt]45" 45$@6$4?$@"���"���lgx
		Pgtmp		Pgtmp			1gfilenamefsrfi/srfi-9.scm�
�	��		PC5`R4 "%c���h(w]����������Cogdummy
		#gname		#gctor			#gpred			#gfields			#		#	CKLh(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-9.scm�
S
��		"g
macro-typegsyntax-rules�gpatternsgnamegctorgpredgfieldsg...C5RC�gm
		,gfilenamefsrfi/srfi-9.scm�		=
��	-	B
��	2	B	��	:	B	&��	?	B
��	T
���	Z
��Z	`
��N�
��0�
���
��	<�
C6
© 2025 GrazzMean