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

name : flonums.go
GOOF----LE-8-2.0;]�4h�]gguile�	�	gdefine-module*�	�	�	grnrs�	g
arithmetic�	gflonums�		�	
gfilenameS�	frnrs/arithmetic/flonums.scm�	gpureS�	
gversionS�		�	gset-current-module�	�	�	gresolve-r6rs-interface�	�	�	gice-9�	goptargs�	�	gcall-with-deferred-observers�	�	�	gmodule-use-interfaces!�	�	�	gcurrent-module�	�	 �	!gonly�	"ginf?�	#!"�	$gfixnums�	%$�	&gbase�	'&�	(gcontrol�	)(�	*g
conditions�	+*�	,g
exceptions�	-,�	.glists�	/.�	0gr5rs�	10�	2gmodule-export!�	32�	42�	5gfixnum->flonum�	6gno-nans-violation?�	7gmake-no-nans-violation�	8g&no-nans�	9gno-infinities-violation?�	:gmake-no-infinities-violation�	;g&no-infinities�	<gflexpt�	=gflsqrt�	>gflatan�	?gflasin�	@gflacos�	Agfltan�	Bgflcos�	Cgflsin�	Dgfllog�	Egflexp�	Fgflround�	Gg
fltruncate�	Hg	flceiling�	Igflfloor�	Jg
fldenominator�	Kgflnumerator�	Lgflmod0�	Mgfldiv0�	Ngfldiv0-and-mod0�	Ogflmod�	Pgfldiv�	Qg
fldiv-and-mod�	Rgflabs�	Sgfl/�	Tgfl-�	Ugfl*�	Vgfl+�	Wgflmin�	Xgflmax�	Ygflnan?�	Zgflinfinite?�	[g	flfinite?�	\gfleven?�	]gflodd?�	^gflnegative?�	_gflpositive?�	`gflzero?�	ag
flinteger?�	bgfl>=?�	cgfl>?�	dgfl<=?�	egfl<?�	fgfl=?�	ggreal->flonum�	hgflonum?�	i56789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgh4�	jgmodule-re-export!�	kj�	lj�	mgmodule-replace!�	nm�	om�	pgreal?�	qginexact?�	rgfor-all�	sgraise�	tgmake-assertion-violation�	ug
assert-flonum�	vginteger?�	wgassert-iflonum�	xg	imag-part�	yg	real-part�	ze+nan.0�	{g
ensure-flonum�	|gexact->inexact�	}gapply�	~g=�	g<��g<=��g>��g>=��godd?��geven?��gnan?��gmax��gmin��e0.0��g+��e1.0��g*��g-��g/��gabs��gdiv-and-mod��gdiv��gmod��g
div0-and-mod0��gdiv0��gmod0��g	numerator��gdenominator��gfloor��gceiling��gtruncate��ground��gexp��glog��gsin��gcos��gtan��gasin��gacos��gatan��gsqrt��gexpt��*��gmake-record-type-descriptor����������g&implementation-restriction��glist->vector����������grecord-constructor����������g"make-record-constructor-descriptor����������gcondition-predicate����������gfixnum?�C5h�+�]4	

54>"G454 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
CO>"G4#54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
CO>"G4%54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
CO>"G4'54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
CO>"G4)54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
CO>"G4+54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
CO>"G4-54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
CO>"G4/54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
CO>"G4154 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
CO>"G44 ihM]456Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
C>"G4l hM]456Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
C>"G4o hM]456Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		
C>"Gpqht]45$6Clgobj
		gfilenamefrnrs/arithmetic/flonums.scm�
	E	��		gnamegflonum?�ChRrhsth(�-1345$C456�gargs
			&gt		&gfilenamefrnrs/arithmetic/flonums.scm�
	F	��			&


gnameg
assert-flonum�CuRrhvh)]45$6C!gi
				Csth(�-1345$C456�gargs
			&gt		&gfilenamefrnrs/arithmetic/flonums.scm�
	H	��			&


gnamegassert-iflonum�CwRpxyzh(�]45$C45
�$6Cxgz
		&gfilenamefrnrs/arithmetic/flonums.scm�
	L	��	%	O	��		&gnameg
ensure-flonum�C{Rpst|h8�]	45$"445>"G6}gx
		3gt			-gfilenamefrnrs/arithmetic/flonums.scm�
	Q	��		3gnamegreal->flonum�CgR}u~h(t-134>"G@lgargs
			#gfilenamefrnrs/arithmetic/flonums.scm�
	U	��			#


gnamegfl=?�CfR}uh(t-134>"G@lgargs
			#gfilenamefrnrs/arithmetic/flonums.scm�
	V	��			#


gnamegfl<?�CeR}u�h(u-134>"G@mgargs
			#gfilenamefrnrs/arithmetic/flonums.scm�
	W	��			#


gnamegfl<=?�CdR}u�h(t-134>"G@lgargs
			#gfilenamefrnrs/arithmetic/flonums.scm�
	X	��			#


gnamegfl>?�CcR}u�h(u-134>"G@mgargs
			#gfilenamefrnrs/arithmetic/flonums.scm�
	Y	��			#


gnamegfl>=?�CbRuvh v]4>"G6ngfl
		gfilenamefrnrs/arithmetic/flonums.scm�
	[	��		gnameg
flinteger?�CaRuh s]4>"G
�Ckgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
	\	��		gnamegflzero?�C`Ruh w]4>"G
�Cogfl
		gfilenamefrnrs/arithmetic/flonums.scm�
	]	��		gnamegflpositive?�C_Ruh w]4>"G
�Cogfl
		gfilenamefrnrs/arithmetic/flonums.scm�
	^	��		gnamegflnegative?�C^Rw�h s]4>"G6kgifl
		gfilenamefrnrs/arithmetic/flonums.scm�
	_	��		gnamegflodd?�C]Rw�h t]4>"G6lgifl
		gfilenamefrnrs/arithmetic/flonums.scm�
	`	��		gnamegfleven?�C\Ru"�h8�]	4>"G45$"45�C{gfl
		5gt		3gfilenamefrnrs/arithmetic/flonums.scm�
	a	��		5gnameg	flfinite?�C[Ru"h w]4>"G6ogfl
		gfilenamefrnrs/arithmetic/flonums.scm�
	b	��		gnamegflinfinite?�CZRu�h r]4>"G6jgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
	c	��		gnamegflnan?�CYR}u�h0�-13�4>"G@�gfl1
			*gargs			*gflargs			*gfilenamefrnrs/arithmetic/flonums.scm�
	e	��			*
gnamegflmax�CXR}u�h0�-13�4>"G@�gfl1
			*gargs			*gflargs			*gfilenamefrnrs/arithmetic/flonums.scm�
	j	��			*
gnamegflmin�CWR}u��h0{-134>"G(C@sgargs
			,gfilenamefrnrs/arithmetic/flonums.scm�
	o	��	%	q	��			,


gnamegfl+�CVR}u��h0{-134>"G(C@sgargs
			,gfilenamefrnrs/arithmetic/flonums.scm�
	s	��	%	u	��			,


gnamegfl*�CUR}u�h0�-13�4>"G@�gfl1
			*gargs			*gflargs			*gfilenamefrnrs/arithmetic/flonums.scm�
	w	��			*
gnamegfl-�CTR}u�h0�-13�4>"G@�gfl1
			*gargs			*gflargs			*gfilenamefrnrs/arithmetic/flonums.scm�
	|	��			*
gnamegfl/�CSRu�h r]4>"G6jgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflabs�CRRw�h �]4>"G6�gfl1
		gfl2		gfilenamefrnrs/arithmetic/flonums.scm�
�	��			gnameg
fldiv-and-mod�CQRw�h �]4>"G6|gfl1
		gfl2		gfilenamefrnrs/arithmetic/flonums.scm�
�	��			gnamegfldiv�CPRw�h �]4>"G6|gfl1
		gfl2		gfilenamefrnrs/arithmetic/flonums.scm�
�	��			gnamegflmod�CORw�h �]4>"G6�gfl1
		gfl2		gfilenamefrnrs/arithmetic/flonums.scm�
�	��			gnamegfldiv0-and-mod0�CNRw�h �]4>"G6}gfl1
		gfl2		gfilenamefrnrs/arithmetic/flonums.scm�
�	��			gnamegfldiv0�CMRw�h �]4>"G6}gfl1
		gfl2		gfilenamefrnrs/arithmetic/flonums.scm�
�	��			gnamegflmod0�CLRu�h x]4>"G6pgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflnumerator�CKRu�h z]4>"G6rgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnameg
fldenominator�CJRu�h t]4>"G6lgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflfloor�CIRu�h v]4>"G6ngfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnameg	flceiling�CHRu�h w]4>"G6ogfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnameg
fltruncate�CGRu�h t]4>"G6lgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflround�CFRu�h r]4>"G6jgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflexp�CERu{��hX�)#34>"G4�56]4>"G4�54�5�6�gfl
			)gfl
	+	Xgfl2	+	Xgfilenamefrnrs/arithmetic/flonums.scm�	$�	!��	H�	$��	R�	%��			)	+	X	gnamegfllog�CDRu�h r]4>"G6jgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflsin�CCRu�h r]4>"G6jgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflcos�CBRu�h r]4>"G6jgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegfltan�CARu{�h s]4>"G456kgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflasin�C?Ru{�h s]4>"G456kgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflacos�C@Ru�h@e)34>"G6]4>"G6]gfl
			!gfl
	#	?gfl2	#	?			!	#	?	gnamegflatan�C>Ru{�h s]4>"G456kgfl
		gfilenamefrnrs/arithmetic/flonums.scm�
�	��		gnamegflsqrt�C=Ru{�h(�]4>"G456}gfl1
		#gfl2		#gfilenamefrnrs/arithmetic/flonums.scm�
�	��		#	gnamegflexpt�C<R4�;�i4�55;R4�4�;i55:R4�;i59R4�8�i4�558R4�4�8i557R4�8i56R�st|h8�]	45$"445>"G6�gfx
		3gt			-gfilenamefrnrs/arithmetic/flonums.scm�
�	��		3gnamegfixnum->flonum�C5RC�gm
		+giface
	2�giface
�Jgiface
Q�giface
�jgiface
q�giface
�giface
�giface
!�giface
�:
gfilenamefrnrs/arithmetic/flonums.scm�		
��_	E	��.	F	��	W	H	��
	L	��
�	Q	���	U	��_	V	��
	W	��
�	X	���	Y	��9	[	���	\	���	]	��:	^	���	_	���	`	��f	a	��	b	���	c	���	e	��|	j	��F	o	��	s	���	w	���	|	��}�	��?�	����	����	��q�	��0�	����	����	�� U�	�� ��	��!��	��"Z�	��#�	��#��	��$��	��%}�	��&%�	��&��	��'v�	��(&�	��(��	��)��	��*X�	��*Y�	��*��	��+��	��5	+�
C6
© 2025 GrazzMean