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

name : srfi-111.go
GOOF----LE-8-2.0?>]<4h�(]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-111�	�		gfilenameS�	
fsrfi/srfi-111.scm�	gimportsS�	gsrfi-9�	
�	
�	ggnu�	�	�	�	gexportsS�	gbox�	gbox?�	gunbox�	gset-box!�	�	gset-current-module�	�	�	gcond-expand-provide�	gcurrent-module�	�	g<box>�	 g%box-procedure�	!gmake-syntax-transformer�	"!�	#!�	$gmacro�	%g$sc-dispatch�	&%�	'%�	(g_�	)gany�	*()�	+g
syntax-object�	,glambda�	-gm-a33a589db48-4�	.gtop�	/-.�	0gribcage�	1gt-a33a589db48-3�	21�	3/�	4fl-a33a589db48-9�	54�	60235�	70�	8gx�	98�	:fl-a33a589db48-6�	;:�	<093;�	=gshift�	>g	proc-name�	?gargs�	@>?�	A.�	BAA�	Cfl-1e8ba8b5a-2ba�	Dfl-1e8ba8b5a-2bb�	ECD�	F0@BE�	Ggkey�	Hgvalue�	Igname�	Jgformals�	Kgbody�	LGHIJK�	MAAAAA�	Nfl-1e8ba8b5a-2ad�	Ofl-1e8ba8b5a-2ae�	Pfl-1e8ba8b5a-2af�	Qfl-1e8ba8b5a-2b0�	Rfl-1e8ba8b5a-2b1�	SNOPQR�	T0LMS�	Ugmake-procedure-name�	VU�	WA�	Xfl-1e8ba8b5a-29d�	YX�	Z0VWY�	[A�	\fl-1e8ba8b5a-29c�	]\�	^09[]�	_/67<=7777FTZ^
�	`ghygiene�	a`�	b+,_a�	cA67<�	d`�	e+Hcd�	fe�	ggmake-struct�	hgm-a33a589db48-1�	ih.�	jgt-1e8ba8b5a-38d�	kgt-1e8ba8b5a-38c�	lgt-1e8ba8b5a-38b�	mjkl�	ngm-1e8ba8b5a-38e�	on.�	pooo�	qfl-1e8ba8b5a-392�	rfl-1e8ba8b5a-393�	sfl-1e8ba8b5a-394�	tqrs�	u0mpt�	vg	ctor-args�	wv�	xfl-1e8ba8b5a-37a�	yx�	z0w[y�	{gctor�	|gfield�	}{|�	~fl-1e8ba8b5a-376�	fl-1e8ba8b5a-377��~��0}B���gform��g	type-name��gconstructor-spec��gfield-names��������AAAA��fl-1e8ba8b5a-36b��fl-1e8ba8b5a-36c��fl-1e8ba8b5a-36d��fl-1e8ba8b5a-36e��������0�����g
record-layout��gfunctional-setters��gsetters��gcopier��ggetters��gconstructor��ggetter-identifiers��gfield-identifiers������������AAAAAAAA��fl-1e8ba8b5a-343��fl-1e8ba8b5a-341��fl-1e8ba8b5a-33f��fl-1e8ba8b5a-33d��fl-1e8ba8b5a-33b��fl-1e8ba8b5a-339��fl-1e8ba8b5a-337��fl-1e8ba8b5a-335������������0�����fl-1e8ba8b5a-334�����09[���i67<=7u777z�7�����+g�a��+cd��+
�a�����e��bf���geach-any��(����gsyntax-violation��
���
���fWrong number of arguments��gidentifier?��
���
���A7<��+ �d��������f-source expression failed to match any pattern��grecord-type-vtable��
���
���gpw��gdefault-record-printer��
���
���H��gset-struct-vtable-name!��
���
���gvtable-offset-user��
���
���g%box?-procedure��gm-a33a589db48-11���.��gt-a33a589db48-10��������fl-a33a589db48-16�����0�����fl-a33a589db48-13�����09������7�=7777FTZ^
��+,�a��gobj��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�����������0�����g	copier-id�����fl-1e8ba8b5a-476�����0�[���g	ctor-name�����fl-1e8ba8b5a-46e�����0�[������fl-1e8ba8b5a-46c�����0�[���glayout�����fl-1e8ba8b5a-46a�����0�[���g
immutable?�����fl-1e8ba8b5a-468���0�[�gfield-count��fl-1e8ba8b5a-466��0[�g
getter-ids��	fl-1e8ba8b5a-463�
	�0[
�g	field-ids�
�fl-1e8ba8b5a-460��0
[�gpredicate-name�g
field-spec������AAAAAA�fl-1e8ba8b5a-453�fl-1e8ba8b5a-454�fl-1e8ba8b5a-455�fl-1e8ba8b5a-456�fl-1e8ba8b5a-457�fl-1e8ba8b5a-458��0�i�7�=7�7777�7�7�7�7777���+�a�� gand�!+ a�"gstruct?�#+"a�$#�%geq?�&+%a�'g
struct-vtable�(+'a�)(�*A�7��++*d�,&)+�-!$,�.�-�/A7��0+�/d�1gthrow-bad-struct�2
1�3
1�4g%unbox-procedure�5gfree-id�6g
%%on-error�7gm-a33a589db48-1d�87.�98�:fl-a33a589db48-1f�;:�<099;�=87<=7777FTZ^�>+6=a�?5>�@?)�Ag%%type�Bgt-1e8ba8b5a-3a5�Cgt-1e8ba8b5a-3a6�Dgt-1e8ba8b5a-3a7�Egt-1e8ba8b5a-3a8�Fgt-1e8ba8b5a-3a9�Ggt-1e8ba8b5a-3aa�Hgt-1e8ba8b5a-3ab�IBCDEFGH�Jgm-1e8ba8b5a-3ac�KJ.�LKKKKKKK�Mfl-1e8ba8b5a-3b0�Nfl-1e8ba8b5a-3b1�Ofl-1e8ba8b5a-3b2�Pfl-1e8ba8b5a-3b3�Qfl-1e8ba8b5a-3b4�Rfl-1e8ba8b5a-3b5�Sfl-1e8ba8b5a-3b6�TMNOPQRS�U0ILT�Vggetter�Wgindex�XVW�Yfl-1e8ba8b5a-3a3�Zfl-1e8ba8b5a-3a4�[YZ�\0XB[�]���^AAA�_fl-1e8ba8b5a-39e�`fl-1e8ba8b5a-39f�afl-1e8ba8b5a-3a0�b_`a�c0]^b�di7<=7U777\7c���e+Ada�f5e�g(@f)�hgck�igerr�jgs�kij�l88�mfl-a33a589db48-22�nfl-a33a589db48-23�omn�p0klo�q8p7<=7777FTZ^
�r+hqa�sgquote�t+sqa�uAp7<�v+ud�wtv�xw�yg%%index�z+yda�{5z�|(@{)�}fl-a33a589db48-27�~fl-a33a589db48-28�}~��0kl��8�7<=7777FTZ^
��+h�a��+s�a���7<��+
�d���������g%%copier��+�da��5���(@�)��fl-a33a589db48-2c��fl-a33a589db48-2d������0kl���8�7<=7777FTZ^
��+h�a��+s�a��g%%<box>-set-fields��A�7<��+��d���������gt-a33a589db48-1c�����fl-a33a589db48-31�����0�9���8�7<=7777FTZ^
��+,�a��i�7<=7U777\7c����+j�a�����gif��+��a��+%�a��+'�a������A�7<��+�d�������g
struct-ref��+��a���7<��+
�d�������+1�a��+s�a��+�d����������������������A7<��+4�d��geach��))������)����)����)����g%%set-fields��gdummy��gcheck?��gexpr����jV���gm-a33a589db48-38���.���iiii��fl-a33a589db48-3d��fl-a33a589db48-3e��fl-a33a589db48-3f��fl-a33a589db48-40��fl-a33a589db48-41���������0��������fl-a33a589db48-3a�����09����gt-1e8ba8b5a-3c4��gt-1e8ba8b5a-3c6��gt-1e8ba8b5a-3c5�������gm-1e8ba8b5a-3c7���.�������fl-1e8ba8b5a-3cb��fl-1e8ba8b5a-3cc��fl-1e8ba8b5a-3cd�������0�����fl-1e8ba8b5a-3c1��fl-1e8ba8b5a-3c2��fl-1e8ba8b5a-3c3�������0]^���i�7�=7�777���
��+��a��A�7���+�d��+�d�����gmap��������glist��g%set-box!-procedure��())��gm-a33a589db48-4c���.��gt-a33a589db48-4a��gt-a33a589db48-4b����������fl-a33a589db48-51��fl-a33a589db48-52������0��������fl-a33a589db48-4e�����09������7�=7777FTZ^
��+,�a��gt-1e8ba8b5a-3e6��gt-1e8ba8b5a-3e7����gm-1e8ba8b5a-3e8�.��fl-1e8ba8b5a-3ec�fl-1e8ba8b5a-3ed��0�gsetter�	IV�
fl-1e8ba8b5a-3e0�fl-1e8ba8b5a-3e1�fl-1e8ba8b5a-3e2�

�0	^
�W�fl-1e8ba8b5a-3d7�fl-1e8ba8b5a-3d8��0B�gfield-specs���fl-1e8ba8b5a-3d3�fl-1e8ba8b5a-3d4��0B�i�7�=777���+ja�gval�+a��+�a� +%a�!+'a�"!�#A�7��$+#d�% "$�&gstruct-set!�'+&a�(�7��)+
(d�*')�++1a�,+sa�-+#d�.,-�/+.�0%*/�1�0�2A7��3+�2d�4gset-record-type-printer!�5gdisplay�6f#<box �7gnumber->string�8gobject-address�9f value: �:gwrite�;f>�C5hh�]4	
54>"G4i4i5>"Ghr]�Cjgvalue
		
gfilenamefsrfi/srfi-111.scm�
	
��		
gnameg%box-procedure�C R4#$'*�h7]C/gt-a33a589db48-3
		
		
C���hT]L6Lga
		gfilenamefsrfi/srfi-111.scm�		
��		C(�hD]L6<gfilenamefsrfi/srfi-111.scm�		
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-111.scm�
	
��		nC5R�����4�>"G	Ɩ i�Rhq]�$��CCigobj
		gfilenamefsrfi/srfi-111.scm�
	
��		gnameg%box?-procedure�C�R4#$'*.h8]C0gt-a33a589db48-10
		
		
C���hT]L6Lga
		gfilenamefsrfi/srfi-111.scm�		
��		C(�hD]L6<gfilenamefsrfi/srfi-111.scm�		
��		
C0h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-111.scm�
	
��		nC5R3hp]�&
�C6hgs
		gfilenamefsrfi/srfi-111.scm�
	
��		gnameg%unbox-procedure�C4R4#$'grxh:]��C2gerr
		gs					C|��h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C*�h8]C0gt-a33a589db48-1c
		
		
C���hT]L6Lga
		gfilenamefsrfi/srfi-111.scm�		
��		C(�hD]L6<gfilenamefsrfi/srfi-111.scm�		
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefsrfi/srfi-111.scm�
	
��	�C5R4#�$'������h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-111.scm�
	
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5�R3h �]�&
�C6|gs
		gval		gfilenamefsrfi/srfi-111.scm�
	
��			gnameg%set-box!-procedure�C�R4#$'�1hV]CNgt-a33a589db48-4a
		gt-a33a589db48-4b					C���hT]L6Lga
		gfilenamefsrfi/srfi-111.scm�		
��		C(�hD]L6<gfilenamefsrfi/srfi-111.scm�		
��		
C3h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6}gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefsrfi/srfi-111.scm�
	
��		nC5R4ii56789:3;h��]4>"G4445	5>"G4>"G4�&
�"	4	5>"G
6�gbox
		|gport		|gfilenamefsrfi/srfi-111.scm�
		��		 	��		 	
��		 	��		!	��		!	
��		!	��	'	!	
��	.	!	��	7	"	��	;	"	
��	@	"	��	I	#	��	N	#	��	l	#	��	x	$	
��	|	$	��		|	C6�gm
		,grtd
o�gfilenamefsrfi/srfi-111.scm�		
��	-	
��	2		��	:		&��	?	
���	
��b	
��	b
C6
© 2025 GrazzMean