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

name : glil.go
GOOF----LE-8-2.0�G]�4h�]gguile�	�	gdefine-module*�	�	�	glanguage�	gglil�	�		gfilenameS�	
flanguage/glil.scm�	gimportsS�	gsystem�	
gbase�	gsyntax�	
�	�	gpmatch�	
�	�	gsrfi�	gsrfi-1�	�	gselectS�	gfold�	�	�	�	gexportsS�	g<glil-program>�	gmake-glil-program�	g
glil-program?�	 gglil-program-meta�	!gglil-program-body�	"g<glil-std-prelude>�	#gmake-glil-std-prelude�	$gglil-std-prelude?�	%gglil-std-prelude-nreq�	&gglil-std-prelude-nlocs�	'gglil-std-prelude-else-label�	(g<glil-opt-prelude>�	)gmake-glil-opt-prelude�	*gglil-opt-prelude?�	+gglil-opt-prelude-nreq�	,gglil-opt-prelude-nopt�	-gglil-opt-prelude-rest�	.gglil-opt-prelude-nlocs�	/gglil-opt-prelude-else-label�	0g<glil-kw-prelude>�	1gmake-glil-kw-prelude�	2gglil-kw-prelude?�	3gglil-kw-prelude-nreq�	4gglil-kw-prelude-nopt�	5gglil-kw-prelude-kw�	6g!glil-kw-prelude-allow-other-keys?�	7gglil-kw-prelude-rest�	8gglil-kw-prelude-nlocs�	9gglil-kw-prelude-else-label�	:g<glil-bind>�	;gmake-glil-bind�	<g
glil-bind?�	=gglil-bind-vars�	>g<glil-mv-bind>�	?gmake-glil-mv-bind�	@g
glil-mv-bind?�	Agglil-mv-bind-vars�	Bgglil-mv-bind-rest�	Cg
<glil-unbind>�	Dgmake-glil-unbind�	Egglil-unbind?�	Fg
<glil-source>�	Ggmake-glil-source�	Hgglil-source?�	Igglil-source-props�	Jg<glil-void>�	Kgmake-glil-void�	Lg
glil-void?�	Mg<glil-const>�	Ngmake-glil-const�	Ogglil-const?�	Pgglil-const-obj�	Qg<glil-lexical>�	Rgmake-glil-lexical�	Sg
glil-lexical?�	Tgglil-lexical-local?�	Ugglil-lexical-boxed?�	Vgglil-lexical-op�	Wgglil-lexical-index�	Xg<glil-toplevel>�	Ygmake-glil-toplevel�	Zgglil-toplevel?�	[gglil-toplevel-op�	\gglil-toplevel-name�	]g
<glil-module>�	^gmake-glil-module�	_gglil-module?�	`gglil-module-op�	agglil-module-mod�	bgglil-module-name�	cgglil-module-public?�	dg<glil-label>�	egmake-glil-label�	fgglil-label?�	ggglil-label-label�	hg
<glil-branch>�	igmake-glil-branch�	jgglil-branch?�	kgglil-branch-inst�	lgglil-branch-label�	mg<glil-call>�	ngmake-glil-call�	og
glil-call?�	pgglil-call-inst�	qgglil-call-nargs�	rg<glil-mv-call>�	sgmake-glil-mv-call�	tg
glil-mv-call?�	ugglil-mv-call-nargs�	vgglil-mv-call-ra�	wg
<glil-prompt>�	xgmake-glil-prompt�	ygglil-prompt?�	zgglil-prompt-label�	{gglil-prompt-escape-only?�	|g
parse-glil�	}gunparse-glil�	~ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}a�	gset-current-module������gformat��f
#<glil ~s>��g
print-glil��gmake-record-type��f<glil-program>��gmeta��gbody������grecord-predicate��gmake-procedure-with-setter��grecord-accessor��grecord-modifier��f<glil-std-prelude>��gnreq��gnlocs��g
else-label�������f<glil-opt-prelude>��gnopt��grest���������f<glil-kw-prelude>��gkw��gallow-other-keys?�����������f<glil-bind>��gvars�����f<glil-mv-bind>������f
<glil-unbind>��f
<glil-source>��gprops�����f<glil-void>��f<glil-const>��gobj�����f<glil-lexical>��glocal?��gboxed?��gop��gindex��������f<glil-toplevel>��gname������f
<glil-module>��gmod��gpublic?��������f<glil-label>��glabel�����f
<glil-branch>��ginst������f<glil-call>��gnargs������f<glil-mv-call>��gra������f
<glil-prompt>��gescape-only?������gprompt��gerror��finvalid glil��gmv-call��gcall��gbranch��gmodule��gprivate��gpublic��gtoplevel��glexical��gconst��gvoid��gsource��gunbind��gmv-bind��gbind��g
kw-prelude��gopt-prelude��gstd-prelude��gprogram��gmap�����������funhandled record�C5h�4v]4	
~54�>"G��}h�]456�gx
		gport		gfilenameflanguage/glil.scm�
	Q
��		R	��			R	��		R	��			gnameg
print-glil�C�R4�i���i5Rh�-13�C�gmeta
			gbody			gdefrec-98ee61a7034-32d				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-program�CR4�ii5R4�i4�ii�54�ii�55 R4�i4�ii�54�ii�55!R4�i���i5"R"h�-13�C�gnreq
			gnlocs			g
else-label				gdefrec-98ee61a7034-32f				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-std-prelude�C#R4�i"i5$R4�i4�i"i�54�i"i�55%R4�i4�i"i�54�i"i�55&R4�i4�i"i�54�i"i�55'R4�i���i5(R(h �-13�C�gnreq
			gnopt			grest				gnlocs				g
else-label				gdefrec-98ee61a7034-331				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-opt-prelude�C)R4�i(i5*R4�i4�i(i�54�i(i�55+R4�i4�i(i�54�i(i�55,R4�i4�i(i�54�i(i�55-R4�i4�i(i�54�i(i�55.R4�i4�i(i�54�i(i�55/R4�i���i50R0h -13�Cgnreq
			gnopt			grest				gkw				gallow-other-keys?				gnlocs				g
else-label				gdefrec-98ee61a7034-333				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-kw-prelude�C1R4�i0i52R4�i4�i0i�54�i0i�553R4�i4�i0i�54�i0i�554R4�i4�i0i�54�i0i�557R4�i4�i0i�54�i0i�555R4�i4�i0i�54�i0i�556R4�i4�i0i�54�i0i�558R4�i4�i0i�54�i0i�559R4�i���i5:R:h�-13�C�gvars
			gdefrec-98ee61a7034-335			gfilenameflanguage/glil.scm�
	T
��			
gnamegmake-glil-bind�C;R4�i:i5<R4�i4�i:i�54�i:i�55=R4�i���i5>R>h�-13�C�gvars
			grest			gdefrec-98ee61a7034-337				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-mv-bind�C?R4�i>i5@R4�i4�i>i�54�i>i�55AR4�i4�i>i�54�i>i�55BR4�i��i5CRCh�-13�Cgdefrec-98ee61a7034-339
			gfilenameflanguage/glil.scm�
	T
��			


gnamegmake-glil-unbind�CDR4�iCi5ER4�i���i5FRFh�-13�C�gprops
			gdefrec-98ee61a7034-33b			gfilenameflanguage/glil.scm�
	T
��			
gnamegmake-glil-source�CGR4�iFi5HR4�i4�iFi�54�iFi�55IR4�i��i5JRJh�-13�C}gdefrec-98ee61a7034-33d
			gfilenameflanguage/glil.scm�
	T
��			


gnamegmake-glil-void�CKR4�iJi5LR4�i���i5MRMh�-13�C�gobj
			gdefrec-98ee61a7034-33f			gfilenameflanguage/glil.scm�
	T
��			
gnamegmake-glil-const�CNR4�iMi5OR4�i4�iMi�54�iMi�55PR4�i���i5QRQh�-13�C�glocal?
			gboxed?			gop				gindex				gdefrec-98ee61a7034-341				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-lexical�CRR4�iQi5SR4�i4�iQi�54�iQi�55TR4�i4�iQi�54�iQi�55UR4�i4�iQi�54�iQi�55VR4�i4�iQi�54�iQi�55WR4�i���i5XRXh�-13�C�gop
			gname			gdefrec-98ee61a7034-343				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-toplevel�CYR4�iXi5ZR4�i4�iXi�54�iXi�55[R4�i4�iXi�54�iXi�55\R4�i���i5]R]h�-13�C�gop
			gmod			gname				gpublic?				gdefrec-98ee61a7034-345				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-module�C^R4�i]i5_R4�i4�i]i�54�i]i�55`R4�i4�i]i�54�i]i�55aR4�i4�i]i�54�i]i�55bR4�i4�i]i�54�i]i�55cR4�i���i5dRdh�-13�C�glabel
			gdefrec-98ee61a7034-347			gfilenameflanguage/glil.scm�
	T
��			
gnamegmake-glil-label�CeR4�idi5fR4�i4�idi�54�idi�55gR4�i���i5hRhh�-13�C�ginst
			glabel			gdefrec-98ee61a7034-349				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-branch�CiR4�ihi5jR4�i4�ihi�54�ihi�55kR4�i4�ihi�54�ihi�55lR4�i���i5mRmh�-13�C�ginst
			gnargs			gdefrec-98ee61a7034-34b				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-call�CnR4�imi5oR4�i4�imi�54�imi�55pR4�i4�imi�54�imi�55qR4�i���i5rRrh�-13�C�gnargs
			gra			gdefrec-98ee61a7034-34d				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-mv-call�CsR4�iri5tR4�i4�iri�54�iri�55uR4�i4�iri�54�iri�55vR4�i���i5wRwh�-13�C�glabel
			gescape-only?			gdefrec-98ee61a7034-34f				gfilenameflanguage/glil.scm�
	T
��				
	gnamegmake-glil-prompt�CxR4�iwi5yR4�i4�iwi�54�iwi�55zR4�i4�iwi�54�iwi�55{R�x���s�n�i�e��^��Y�R�N�K�G�D�?�;�1�)�#��|+h��
]�"z""\"�"]"�"�""L""s""x"�"�"3"�"q�$b��&H�$9���$ ��(666666�$R��&<�$1���$��(6"��B"��>"��:"��6"��2�$R��&<�$1���$��(6"���"���"���"���"����$R��	&<�$1���$��(
6"���"��|"��x"��t"��p�$;��&%�$��(6"��2"��."��*"��&�$���
&u�$j��&T�$I���$4���$��
	
(	6"���"���"���"���"���"���"���"����$���
&u�$j��&T�$I���$4���$��
	
(	6"��"��
"��"��"���"���"���"����$R��&<�$1���$��(6"���"���"���"���"����$���&j�$_���$J���$5���$ ��
	
(	6"��"��"��"��"��
"��"���$;��&%�$��(6"���"���"���"����$$��&(6"���"���"����$;��&%�$��(6"��G"��C"��?"��;�$$��&(6"��"��"���$R��&<�$1���$��(6"���"���"���"���"����$��& 6"���"��|�$���!&��$����$����$z���$e��
	
�$P
�
��$;��
�$&��("	
6"���"���"���"���"���"���"���"���"���"����$���#&��$v���$a���$L���$7��
	
�$"
�
�($	6"��"��"��"��"��"��
"��"���$i��%&S�$H���$3���$��(
&6"���"���"���"���"���"����$:��'&$�$��(4)*56"��I"��E"��A�
gx
	�gvx	W�gvy		W�gvx		p�gvy		p�gvx	��gvy	��gvx�gvy	�gvx	�gvy	�gvx	�gvy	�gvx%qgvy	%qgvx	>igvy	>igvx	Oegvy	Oegvx��gvy	��gvx	��gvy	��gvx	��gvy	��gvx�gvy	�gvx	�gvy	�gvx%�gvy	%�gvx	>�gvy	>�gvx	W�gvy	W�gvx	h�gvy	h�gvx		y�gvy	
y�gvx�@gvy	�@gvx	�8gvy	�8gvx	�0gvy	�0gvx	�,gvy	�,gvx		(gvy	
(gvxQ�gvy	Q�gvx	j�gvy	j�gvx	{�gvy	{�gvx�(gvy	�(gvx	� gvy	� gvx	�gvy	�gvx	�gvy	�gvx		�gvy	
�gvx9ngvy	9ngvx	Rfgvy	Rfgvx�gvy	�gvx��gvy	��gvx	��gvy	��gvx�gvy	�gvx#ogvy	#ogvx	<ggvy	<ggvx	Mcgvy	Mcgvx��gvy	��gvx�fgvy	�fgvx	�^gvy	�^gvx	�Zgvy	�Zgvx	�Vgvy	�Vgvx		�Rgvy	
�Rgvx	Ngvy	Ngvx	
Jgvy	Jgvx	&Fgvy	&Fgvxwgvy	wgvx	�gvy	�gvx	��gvy	��gvx	��gvy	��gvx		��gvy	
��gvx	��gvy	��gvx|gvy	|gvx	2tgvy	2tgvx	Cpgvy	Cpgvx	Tlgvy	Tlgvx��gvy	��gvx	��gvy	��}gfilenameflanguage/glil.scm�
	n
��		o	����	����	����	
����	����	
����	����	
����	����	
����	����	
���	o	���	��	o	��a�	��e	o	����	���	o	���	��	o	����	%���	o	��$�	$��(	o	���		���	o	��	~	*��	o	��b	}	��f	o	���	|	���	o	���	{	���	o	��
	z	��	o	��_	y	��c	o	���	x	���	o	��B	w	��F	o	���	u	���	o	��h	s	��l	o	���	q	���	q	���	o	��4	�gnameg
parse-glil�C|R !��}"%&'�(+,-./�03475689�:=�>AB�C�FI�J�MP�QTUVW�X[\�]`abc���dg�hkl�mpq�ruv�wz{����Uh�d]A�&"454545��C&'454	54
5C&=4
545454545C&S45454545454545C&45�C&4 54!5"C#&$C%&4&5'C(&)C*&4+5,C-&24.54/54054152C3&4454556C7&>4854954:54;5<$=">C?&4@5ACB&4C54D5ECF&4G54H5ICJ&4K54L5MCN&$4O54P>"GQR��CST6\gglil
	�grtd	�gmeta			1gbody			1gnreq		N	`gnlocs		N	`g
else-label		N	`gnreq	��gnopt	��grest	��gnlocs	��g
else-label	��gnreq	�gnopt	�grest	�gkw	�gallow-other-keys?	�gnlocs	�g
else-label	�gvars	gvars	-;grest	-;gprops	U_gobj	y�glocal?	��gboxed?	��gop	��gindex	��gop	��gname	��gop	'gmod	'gname	'gpublic?	'glabel	6@ginst	Vdglabel	Vdginst	z�gnargs	z�gnargs	��gra	��glabel	��*gfilenameflanguage/glil.scm�
�
��	�	��	#�	��	&�	��	/�	��	9�	��	V�	��	h�	����	����	����	���	���	���	��3�	 ��C�	��E�	��N�	��Y�	��g�	��i�	��r�	��}�	����	����	����	����	����	���	���	���	���	#��&�	��/�	��:�	��H�	��\�	 ��l�	����	����	����	����	����	����	��-	�gnamegunparse-glil�C}RCngm
		,gfilenameflanguage/glil.scm�		
���	Q
��	T
��+�	n
��4��
��	4�
C6
© 2025 GrazzMean