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?�C5
h�+�]4	

54>
"G45
4 hM]
45L
6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		

CO
>
"G4#5
4 hM]
45L
6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		

CO
>
"G4%5
4 hM]
45L
6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		

CO
>
"G4'5
4 hM]
45L
6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		

CO
>
"G4)5
4 hM]
45L
6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		

CO
>
"G4+5
4 hM]
45L
6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		

CO
>
"G4-5
4 hM]
45L
6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		

CO
>
"G4/5
4 hM]
45L
6Egfilenamefrnrs/arithmetic/flonums.scm�
	
��		

CO
>
"G415
4 hM]
45L
6Egfilenamefrnrs/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]
4
5
$6
Clgobj
		
gfilenamefrnrs/arithmetic/flonums.scm�
	E	��		
gnamegflonum?�ChRrhsth(�-134
5

$
C456
�gargs
			&g
t		&gfilenamefrnrs/arithmetic/flonums.scm�
	F	��			&



gnameg
assert-flonum�CuRrhvh)]
4
5
$6
C!g
i
		
		
Csth(�-134
5

$
C456
�gargs
			&g
t		&gfilenamefrnrs/arithmetic/flonums.scm�
	H	��			&



gnamegassert-iflonum�CwRpxyzh(�]
4
5
$C45

�$6
Cxg
z
		&
gfilenamefrnrs/arithmetic/flonums.scm�
	L	��	%	O	��		&
gnameg
ensure-flonum�C{Rpst|h8�]	4
5


$"445>
"G
6
}g
x
		3g
t			-gfilenamefrnrs/arithmetic/flonums.scm�
	Q	��		3
gnamegreal->flonum�CgR}u~h(t-13
4
>"G@lgargs
			#
gfilenamefrnrs/arithmetic/flonums.scm�
	U	��			#



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



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



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



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



gnamegfl>=?�CbRuvh v]
4
>
"G6
ngfl
		
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
>
"G6
kgifl
		
gfilenamefrnrs/arithmetic/flonums.scm�
	_	��		
gnamegflodd?�C]Rw�h t]
4
>
"G6
lgifl
		
gfilenamefrnrs/arithmetic/flonums.scm�
	`	��		
gnamegfleven?�C\Ru"�h8�]	4
>
"G45


$
"45

�C{gfl
		5g
t		3gfilenamefrnrs/arithmetic/flonums.scm�
	a	��		5
gnameg	flfinite?�C[Ru"h w]
4
>
"G6
ogfl
		
gfilenamefrnrs/arithmetic/flonums.scm�
	b	��		
gnamegflinfinite?�CZRu�h r]
4
>
"G6
jgfl
		
gfilenamefrnrs/arithmetic/flonums.scm�
	c	��		
gnamegflnan?�CYR}u�h0�-
1
3
�4
>"G@�gfl1
			*gargs			*gflargs			*gfilenamefrnrs/arithmetic/flonums.scm�
	e	��			*

gnamegflmax�CXR}u�h0�-
1
3
�4
>"G@�gfl1
			*gargs			*gflargs			*gfilenamefrnrs/arithmetic/flonums.scm�
	j	��			*

gnamegflmin�CWR}u��h0{-13
4
>"G(C@sgargs
			,
gfilenamefrnrs/arithmetic/flonums.scm�
	o	��	%	q	��			,



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



gnamegfl*�CUR}u�h0�-
1
3
�4
>"G@�gfl1
			*gargs			*gflargs			*gfilenamefrnrs/arithmetic/flonums.scm�
	w	��			*

gnamegfl-�CTR}u�h0�-
1
3
�4
>"G@�gfl1
			*gargs			*gflargs			*gfilenamefrnrs/arithmetic/flonums.scm�
	|	��			*

gnamegfl/�CSRu�h r]
4
>
"G6
jgfl
		
gfilenamefrnrs/arithmetic/flonums.scm�
�	��		
gnamegflabs�CRRw�h �]4

>"G
6�gfl1
		gfl2		gfilenamefrnrs/arithmetic/flonums.scm�
�	��			
gnameg
fldiv-and-mod�CQRw�h �]4

>"G
6|gfl1
		gfl2		gfilenamefrnrs/arithmetic/flonums.scm�
�	��			
gnamegfldiv�CPRw�h �]4

>"G
6|gfl1
		gfl2		gfilenamefrnrs/arithmetic/flonums.scm�
�	��			
gnamegflmod�CORw�h �]4

>"G
6�gfl1
		gfl2		gfilenamefrnrs/arithmetic/flonums.scm�
�	��			
gnamegfldiv0-and-mod0�CNRw�h �]4

>"G
6}gfl1
		gfl2		gfilenamefrnrs/arithmetic/flonums.scm�
�	��			
gnamegfldiv0�CMRw�h �]4

>"G
6}gfl1
		gfl2		gfilenamefrnrs/arithmetic/flonums.scm�
�	��			
gnamegflmod0�CLRu�h x]
4
>
"G6
pgfl
		
gfilenamefrnrs/arithmetic/flonums.scm�
�	��		
gnamegflnumerator�CKRu�h z]
4
>
"G6
rgfl
		
gfilenamefrnrs/arithmetic/flonums.scm�
�	��		
gnameg
fldenominator�CJRu�h t]
4
>
"G6
lgfl
		
gfilenamefrnrs/arithmetic/flonums.scm�
�	��		
gnamegflfloor�CIRu�h v]
4
>
"G6
ngfl
		
gfilenamefrnrs/arithmetic/flonums.scm�
�	��		
gnameg	flceiling�CHRu�h w]
4
>
"G6
ogfl
		
gfilenamefrnrs/arithmetic/flonums.scm�
�	��		
gnameg
fltruncate�CGRu�h t]
4
>
"G6
lgfl
		
gfilenamefrnrs/arithmetic/flonums.scm�
�	��		
gnamegflround�CFRu�h r]
4
>
"G6
jgfl
		
gfilenamefrnrs/arithmetic/flonums.scm�
�	��		
gnamegflexp�CERu{��hX�)
#3
4
>
"G4�5
6
]4

>"G4�5
4
�5
�6
�gfl
			)gfl
	+	Xgfl2	+	Xgfilenamefrnrs/arithmetic/flonums.scm�	$�	!��	H�	$��	R�	%��			)	+	X	gnamegfllog�CDRu�h r]
4
>
"G6
jgfl
		
gfilenamefrnrs/arithmetic/flonums.scm�
�	��		
gnamegflsin�CCRu�h r]
4
>
"G6
jgfl
		
gfilenamefrnrs/arithmetic/flonums.scm�
�	��		
gnamegflcos�CBRu�h r]
4
>
"G6
jgfl
		
gfilenamefrnrs/arithmetic/flonums.scm�
�	��		
gnamegfltan�CARu{�h s]
4
>
"G45
6
kgfl
		
gfilenamefrnrs/arithmetic/flonums.scm�
�	��		
gnamegflasin�C?Ru{�h s]
4
>
"G45
6
kgfl
		
gfilenamefrnrs/arithmetic/flonums.scm�
�	��		
gnamegflacos�C@Ru�h@e)
3
4
>
"G6
]4

>"G
6]gfl
			!gfl
	#	?gfl2	#	?			!	#	?	gnamegflatan�C>Ru{�h s]
4
>
"G45
6
kgfl
		
gfilenamefrnrs/arithmetic/flonums.scm�
�	��		
gnamegflsqrt�C=Ru{�h(�]4

>"G4
56
}gfl1
		#gfl2		#gfilenamefrnrs/arithmetic/flonums.scm�
�	��		#	
gnamegflexpt�C<R4�;�i4�5
5;R4�4�;i55
:R4�;i5
9R4�8�i4�5
58R4�4�8i55
7R4�8i5
6R�st|h8�]	4
5


$"445>
"G
6
�gfx
		3g
t			-gfilenamefrnrs/arithmetic/flonums.scm�
�	��		3
gnamegfixnum->flonum�C5RC�g
m
		+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