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

name : program.go
GOOF----LE-8-2.0�=]�4hI
]gguile�	�	gdefine-module*�	�	�	gsystem�	gvm�	gprogram�		�	
gfilenameS�	fsystem/vm/program.scm�	gimportsS�	
gbase�	gpmatch�	
�	�	ginstruction�	�	�	gobjcode�	�	�	grnrs�	gbytevectors�	�	�	gsrfi�	gsrfi-1�	�	�	gsrfi-26�	 �	! �	"!�	#gexportsS�	$gmake-program�	%gmake-binding�	&gbinding:name�	'gbinding:boxed?�	(g
binding:index�	)g
binding:start�	*gbinding:end�	+gsource:addr�	,gsource:line�	-g
source:column�	.gsource:file�	/gsource:line-for-user�	0gprogram-sources�	1gprogram-sources-pre-retire�	2gprogram-source�	3gprogram-bindings�	4gprogram-bindings-by-index�	5gprogram-bindings-for-ip�	6gprogram-arities�	7g
program-arity�	8garity:start�	9g	arity:end�	:g
arity:nreq�	;g
arity:nopt�	<garity:rest?�	=garity:kw�	>garity:allow-other-keys?�	?gprogram-arguments-alist�	@gprogram-lambda-list�	Agprogram-meta�	Bgprogram-objcode�	Cgprogram?�	Dgprogram-objects�	Egprogram-module�	Fgprogram-base�	Ggprogram-free-variables�	Hgprogram-num-free-variables�	Igprogram-free-variable-ref�	Jgprogram-free-variable-set!�	K$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJ'�	Lgset-current-module�	ML�	NL�	Ogload-extension�	Pg
string-append�	Qf	libguile-�	Rgeffective-version�	Sfscm_init_programs�	Tglist-ref�	Ug*bytecode-header-len*�	Vgopcode->instruction�	Wgload-program�	Xginstruction-length�	Ygbytecode-instruction-length�	Zgobjcode->bytecode�	[greverse�	\gerror�	]f
unexpected�	^gmap�	_gcdr�	`gsort!�	agassv-ref�	bgappend!�	cgcollapse-locals�	df	bad arity�	egrequired�	fgoptional�	ggkeyword�	hgallow-other-keys?�	igrest�	jgextents�	kgarglist->arguments-alist�	lgstring->symbol�	mf_�	nglength�	ogarity->arguments-alist�	pgand=>�	qgarguments-alist->lambda-list�	rgassq-ref�	sgkeyword->symbol�	tgcar�	ugappend�	vu�	wu�	xgoptionalS�	ygkeyS�	zgunfold�	{g1+�	|gformat�	}f#<procedure ~a~a>�	~gprocedure-name�	f~a at ~a:~a:~a��gnumber->string��gobject-address��f<current input>��f<unknown port>��f��f ��gstring-join��gobject->string��f | ��g
write-program�C5hH1�]4	
"#K54N>"G4Oi4PiQ4Ri55S>"Gh�]C�gname
		gboxed?		gindex			gstart			gend			gfilenamefsystem/vm/program.scm�
	5
��		6	��			gnamegmake-binding�C%RThx]
6pgb
			gfilenamefsystem/vm/program.scm�
	7
��			7	��			gnamegbinding:name�C&RThz]6rgb
			gfilenamefsystem/vm/program.scm�
	8
��			8	��			gnamegbinding:boxed?�C'RThy]	6qgb
		
gfilenamefsystem/vm/program.scm�
	9
��	
	9	��		
gnameg
binding:index�C(RThy]	6qgb
		
gfilenamefsystem/vm/program.scm�
	:
��	
	:	��		
gnameg
binding:start�C)RThw]	6ogb
		
gfilenamefsystem/vm/program.scm�
	;
��	
	;	��		
gnamegbinding:end�C*Rh|]�Ctgsource
		gfilenamefsystem/vm/program.scm�
	=
��		>	��		gnamegsource:addr�C+Rh|]��Ctgsource
		gfilenamefsystem/vm/program.scm�
	?
��		@	��		gnamegsource:file�C.Rh|]���Ctgsource
		gfilenamefsystem/vm/program.scm�
	A
��		B	��		gnamegsource:line�C,Rh~]���Cvgsource
		gfilenamefsystem/vm/program.scm�
	C
��		D	��		gnameg
source:column�C-R,h�]45�C�gsource
		gfilenamefsystem/vm/program.scm�
	I
��		J	��	
	J	��		gnamegsource:line-for-user�C/R	URUVWXhh�]�4�5&��	���"645
�$"��	�	��	��	���"45�C�gbytecode
		hgip		hgidx			hginst			hgfilenamefsystem/vm/program.scm�
	Q
��		R	��		R	��	
	S	��		S	$��		S	��		R	��		V	��		U	��	"	W	1��	#	W	
��	*	X	1��	+	X	
��	,	W	
��	1	Y	
��	9	Y	
��	=	U	��	B	\	.��	C	\	��	F	\	
��	M	]	.��	N	]	��	Q	]	
��	R	\	
��	Y	^	)��	Z	^	
��	[	\	
��	`	a	
��	g	U	��		h	gnamegbytecode-instruction-length�CYRZB[Y\]0h��]I4455"n(6��$P��"6	�$		4	5�	"������	"���	"���645
"���gproc
	�gbv	�gin		�gout		�gip		�gv		#�gvx		2	|gvy		2	|gip		:	pgnext			:	p
gfilenamefsystem/vm/program.scm�
	m
��		n	��		n	��		n	��		n	��		o	��		r	��	 	t	��	#	v	��	#	v	��	:	x	��	?	z	��	C	z	
��	H	{	#��	Q	{	��	Y	{	��	\	|	��	a	}	��	p	|	��	p	x	����	����	���	o	���	o	���	p	���	o	��	�gnamegprogram-sources-pre-retire�C1R^_`h�]���C{gx
		
gy		
gfilenamefsystem/vm/program.scm�
�	��	�	)��	�	1��		�	&��		
	Ca(bh��]!"n(456�4455$$4>"G�"���45��"���"���~glocs
		gret		tglocs			tgb			tgt		.	tgfilenamefsystem/vm/program.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	!�	��	&�	��	.�	��	.�	
��	7�	��	@�	#��	E�	��	R�	��	Z�	��	[�	��	f�	)��	i�	��	l�	��	t�	��	t�	��	u�	��	�	��		gnamegcollapse-locals�CcR3ch �]	45$6C�gprog
		gt			gfilenamefsystem/vm/program.scm�
�
��	�		��		�	��	�	��		gnamegprogram-bindings-by-index�C4R[)*4h��]"m(6�"I("F"	�"���4�5�$4�5�$
��""���"����"���"���45"����gprog
	�gip	�gin			sgout			sgbinds			bgfilenamefsystem/vm/program.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	��	,�	!��	2�	��	2�	��	3�	��	8�	(��	:�	��	=�	��	A�	��	D�	��	I�	&��	K�	��	L�	��	S�	��	V�	��	b�	��	e�	��	k�	��	s�	��	s�	��	t�	��	{�	6����	��	�	gnamegprogram-bindings-for-ip�C5R\dh8�]�$$���$��C66�ga
		5gvx		-gvy			-gfilenamefsystem/vm/program.scm�
�
��	�	��	)�	3��	-�	,��	1�	3��	5�	,��		5gnamegarity:start�C8R\dh8�]	�$ ���$��C66�ga
		1gvy		)gfilenamefsystem/vm/program.scm�
�
��	�	��	%�	1��	)�	*��	-�	1��	1�	*��		1gnameg	arity:end�C9Rh8�]�$,���$���$��C
C
C
C�ga
		7gvy		5gvy			3gfilenamefsystem/vm/program.scm�
�
��	�	��		7gnameg
arity:nreq�C:RhP�]�$>���$,���$���$��C
C
C
C
C�ga
		Igvy		Ggvy			Egvy		,	Cgfilenamefsystem/vm/program.scm�
�
��	�	��		Ignameg
arity:nopt�C;Rh`�]!�$P���$>���$,���$���$��CCCCCC�ga
		[gvy		Ygvy			Wgvy		,	Ugvy		<	Sgfilenamefsystem/vm/program.scm�
�
��	�	��		[gnamegarity:rest?�C<Rh�]A�$����$o���$]���$K���$9���$'���$��(CCCCCCCCC�ga
	�gvy	�gvy		�gvy		,�gvy		<�gvy		L�gvx		_�gvy		_�gvy		m	~	gfilenamefsystem/vm/program.scm�
�
��	�	��	}�	:��	�gnamegarity:kw�C=Rh�
]A�$����$o���$]���$K���$9���$'���$��(CCCCCCCCCga
	�gvy	�gvy		�gvy		,�gvy		<�gvy		L�gvx		_�gvy		_�gvx		m	~	gfilenamefsystem/vm/program.scm�
�
��	�	��	�gnamegarity:allow-other-keys?�C>R689hhl]45$U"I(C$7"	�"���4�5�$4�5�$�C"���"����C"���Cdgprog
		hgip		hgarities				hgarities			^gfilenamefsystem/vm/program.scm�
�
��	�	��		�	��	�	��	�		��	�	��	*�	��	0�	��	0�	��	1�	��	6�	'��	8�	��	;�	��	?�	��	B�	��	G�	)��	I�	��	J�	��	N�	��	Q�	��	]�	��	^�		��		h	gnameg
program-arity�C7Refghijh�8]Q�$x���$e���$R���$?���$,��
	����	�
�CCCCCC0garglist
	�gvx	�gvy		�gvx		 	gvy		 	gvx		1	}gvy		1	}gvx		B	{gvy		B	{gvx			S	ygvy	
	S	ygfilenamefsystem/vm/program.scm�
�
��	�	��	Y�	��	�gnamegarglist->arguments-alist�CkRlmhk]6cgi
		gfilenamefsystem/vm/program.scm�
�	"��	�	>��	�	.��		C^(&ht]4545�Clgx
		gfilenamefsystem/vm/program.scm�
�	��	�	��	
�	1��	�	��		C58ah �]	4L5$CL6zgi
		gt		gfilenamefsystem/vm/program.scm�
�	��	�	��	�	��	�	��		Cn=e[fgh>i:;<h@ -.,3#H444555OK"�
�$*�4J
5�	
�
	"���
�$*�4J
5�	
�
	"���$24J
4455�5
�
	"��d	4
5�4
5�45�
45�	�C454545

	"��gprog
	:garity	:gmake-placeholder		:gvar-by-index		:grbinds		.	<gnreq		Bgreq		Bgnopt		Bgopt		Bgrest?		Bgrest			Bgn	
	Bgfilenamefsystem/vm/program.scm�
�
��	�	��	�	��	$�	0��	,�	��	.�	��	.�	��	B�	��	F�	��	J�	��	M�	
��	N�	��	W�	��	b�	��	t�	��	x�	��	|�	����	
����	����	����	����	����	����	
����	 ����	(����	 ����	����	
����	
����	����	����	����	����	����	����	����	����	���	���	���	���	*���	���	*�� �	��:�	��0	:	gnamegarity->arguments-alist�CoR7oh0,-.,3#45$6C$gprog
		0gip		0garity			0gfilenamefsystem/vm/program.scm�
�
��	�	��	�	��	&�	��	.�		��		0gnamegprogram-arguments-alist�g
documentationfPReturns the signature of the given procedure in the form of an association list.�C?Rp?qh(-.,3#456�gprog
		$gip		$gfilenamefsystem/vm/program.scm�
�
��	�		��	$�	��		$gnamegprogram-lambda-list�g
documentationfMReturns the signature of the given procedure in the form of an argument list.�C@Rref^stgiwxyh�`]!45$"45$"4445$"5545$"	4	�$	
�"4	�$	�"556Xgarguments-alist
	�gt		gt	&	8gt	K	]gt	j	|greq	|�gopt		|�gkey		|�grest		|�	gfilenamefsystem/vm/program.scm�
�
��	�	��		�	+��	�	��	�	
��	�	6��	�	��	$�	+��	&�	��	&�	
��	5�	6��	9�	
��	>�	��	C�	��	I�	9��	K�	��	K�	��	Z�	C��	_�	��	a�	
��	b�	��	h�	,��	j�	��	j�	��	y�	3��	|�	����	���	���	���	���	.����	���	���	���	���	)����	��&	�gnamegarguments-alist->lambda-list�CqRHzhb]L�CZgi
		gfilenamefsystem/vm/program.scm�
	��		��		CIhh]L6`gt-46b52c6efc-47d
		
gfilenamefsystem/vm/program.scm�
	��		
C{h �]	45OO
6�gprog
		 gcount			 gfilenamefsystem/vm/program.scm�

��		��			��	 	��		 gnamegprogram-free-variables�g
documentationf*Return the list of free variables of PROG.�CGR|}~p2|��.��/-
hP�]	44L5	545$"$"454	56�gs
		Kgt		;gfilenamefsystem/vm/program.scm�
	��		"��		��		/��		��		#��		��	0	#��	2	)��	8	;��	<	��	C	8��	K	��		KC��6�P��^�qoh}]44L556uga
		gfilenamefsystem/vm/program.scm�
	'��		*��		+��		*��		)��		C�h��]
45$"344
5O5$"445	54	5$�"$
"44
4O5556�gprog
	�gport	�gt			Sgt		1	Pgarities		Z�gfilenamefsystem/vm/program.scm�

��	
	��			��		
��		��	!	��	1	��	1	
��	@	��	C	��	M	��	T	��	Z	
��	b	��	e	"��	j	��	n	��	p	��	u	��	y	��	z	��	}	"��� 	"���	���	���
	��	�	gnameg
write-program�C�RC�gm
		,gfilenamefsystem/vm/program.scm�		
��	-	2
��	2	2	��	8	2	��	9	2	+��	A	2	��	C	3	��	H	2
��9	5
���	7
��u	8
��	9
���	:
��R	;
���	=
��	?
��	A
���	C
��`	I
��e	M
��	�	Q
��$	m
����
����
��6�
��?�
��5�
���
���
��C�
����
����
����
��c�
��$��
��&?�
��'��
��*��
��,�
��1F
��)	1H
C6
© 2025 GrazzMean