[EDIT] FILE: flonums.go
GOOF----LE-8-2.0; ] � 4 h� ] g guile� � g define-module*� � � g rnrs� g arithmetic� g flonums� � g filenameS� f rnrs/arithmetic/flonums.scm� g pureS� g versionS� � g set-current-module� � � g resolve-r6rs-interface� � � g ice-9� g optargs� � g call-with-deferred-observers� � � g module-use-interfaces!� � � g current-module� � � !g only� "g inf?� #!" � $g fixnums� %$ � &g base� '& � (g control� )( � *g conditions� +* � ,g exceptions� -, � .g lists� /. � 0g r5rs� 10 � 2g module-export!� 32 � 42 � 5g fixnum->flonum� 6g no-nans-violation?� 7g make-no-nans-violation� 8g &no-nans� 9g no-infinities-violation?� :g make-no-infinities-violation� ;g &no-infinities� <g flexpt� =g flsqrt� >g flatan� ?g flasin� @g flacos� Ag fltan� Bg flcos� Cg flsin� Dg fllog� Eg flexp� Fg flround� Gg fltruncate� Hg flceiling� Ig flfloor� Jg fldenominator� Kg flnumerator� Lg flmod0� Mg fldiv0� Ng fldiv0-and-mod0� Og flmod� Pg fldiv� Qg fldiv-and-mod� Rg flabs� Sg fl/� Tg fl-� Ug fl*� Vg fl+� Wg flmin� Xg flmax� Yg flnan?� Zg flinfinite?� [g flfinite?� \g fleven?� ]g flodd?� ^g flnegative?� _g flpositive?� `g flzero?� ag flinteger?� bg fl>=?� cg fl>?� dg fl<=?� eg fl<?� fg fl=?� gg real->flonum� hg flonum?� i56789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgh 4� jg module-re-export!� kj � lj � mg module-replace!� nm � om � pg real?� qg inexact?� rg for-all� sg raise� tg make-assertion-violation� ug assert-flonum� vg integer?� wg assert-iflonum� xg imag-part� yg real-part� ze +nan.0� {g ensure-flonum� |g exact->inexact� }g apply� ~g =� g <� �g <=� �g >� �g >=� �g odd?� �g even?� �g nan?� �g max� �g min� �e 0.0� �g +� �e 1.0� �g *� �g -� �g /� �g abs� �g div-and-mod� �g div� �g mod� �g div0-and-mod0� �g div0� �g mod0� �g numerator� �g denominator� �g floor� �g ceiling� �g truncate� �g round� �g exp� �g log� �g sin� �g cos� �g tan� �g asin� �g acos� �g atan� �g sqrt� �g expt� �* � �g make-record-type-descriptor� ��� � ��� � �g &implementation-restriction� �g list->vector� ��� � ��� � �g record-constructor� ��� � ��� � �g "make-record-constructor-descriptor� ��� � ��� � �g condition-predicate� ��� � ��� � �g fixnum?�C 5 h�+ � ]4 5 4 > " G 45 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/flonums.scm� �� C O > " G 4#5 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/flonums.scm� �� C O > " G 4%5 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/flonums.scm� �� C O > " G 4'5 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/flonums.scm� �� C O > " G 4)5 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/flonums.scm� �� C O > " G 4+5 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/flonums.scm� �� C O > " G 4-5 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/flonums.scm� �� C O > " G 4/5 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/flonums.scm� �� C O > " G 415 4 h M ] 45 L 6E g filenamef rnrs/arithmetic/flonums.scm� �� C O > " G 44 i h M ] 45 6 E g filenamef rnrs/arithmetic/flonums.scm� �� C> " G 4l h M ] 45 6 E g filenamef rnrs/arithmetic/flonums.scm� �� C> " G 4o h M ] 45 6 E g filenamef rnrs/arithmetic/flonums.scm� �� C> " G pq h t ]4 5$ 6C l g obj g filenamef rnrs/arithmetic/flonums.scm� E �� g nameg flonum?� ChRrhst h( � - 1 3 4 5 $ C45 6 � g args & g t & g filenamef rnrs/arithmetic/flonums.scm� F �� & g nameg assert-flonum� CuRrhv h ) ]4 5$ 6C ! g i Cst h( � - 1 3 4 5 $ C45 6 � g args & g t & g filenamef rnrs/arithmetic/flonums.scm� H �� & g nameg assert-iflonum� CwRpxyz h( � ]4 5$ C4 5 �$ 6C x g z & g filenamef rnrs/arithmetic/flonums.scm� L �� % O �� & g nameg ensure-flonum� C{Rpst| h8 � ] 4 5 $ " 445 > " G 6 } g x 3 g t - g filenamef rnrs/arithmetic/flonums.scm� Q �� 3 g nameg real->flonum� CgR}u~ h( t - 1 3 4 > " G @ l g args # g filenamef rnrs/arithmetic/flonums.scm� U �� # g nameg fl=?� CfR}u h( t - 1 3 4 > " G @ l g args # g filenamef rnrs/arithmetic/flonums.scm� V �� # g nameg fl<?� CeR}u� h( u - 1 3 4 > " G @ m g args # g filenamef rnrs/arithmetic/flonums.scm� W �� # g nameg fl<=?� CdR}u� h( t - 1 3 4 > " G @ l g args # g filenamef rnrs/arithmetic/flonums.scm� X �� # g nameg fl>?� CcR}u� h( u - 1 3 4 > " G @ m g args # g filenamef rnrs/arithmetic/flonums.scm� Y �� # g nameg fl>=?� CbRuv h v ]4 > " G 6 n g fl g filenamef rnrs/arithmetic/flonums.scm� [ �� g nameg flinteger?� CaRu h s ]4 > " G �C k g fl g filenamef rnrs/arithmetic/flonums.scm� \ �� g nameg flzero?� C`Ru h w ]4 > " G �C o g fl g filenamef rnrs/arithmetic/flonums.scm� ] �� g nameg flpositive?� C_Ru h w ]4 > " G �C o g fl g filenamef rnrs/arithmetic/flonums.scm� ^ �� g nameg flnegative?� C^Rw� h s ]4 > " G 6 k g ifl g filenamef rnrs/arithmetic/flonums.scm� _ �� g nameg flodd?� C]Rw� h t ]4 > " G 6 l g ifl g filenamef rnrs/arithmetic/flonums.scm� ` �� g nameg fleven?� C\Ru"� h8 � ] 4 > " G 4 5 $ " 4 5 �C { g fl 5 g t 3 g filenamef rnrs/arithmetic/flonums.scm� a �� 5 g nameg flfinite?� C[Ru" h w ]4 > " G 6 o g fl g filenamef rnrs/arithmetic/flonums.scm� b �� g nameg flinfinite?� CZRu� h r ]4 > " G 6 j g fl g filenamef rnrs/arithmetic/flonums.scm� c �� g nameg flnan?� CYR}u� h0 � - 1 3 � 4> " G @ � g fl1 * g args * g flargs * g filenamef rnrs/arithmetic/flonums.scm� e �� * g nameg flmax� CXR}u� h0 � - 1 3 � 4> " G @ � g fl1 * g args * g flargs * g filenamef rnrs/arithmetic/flonums.scm� j �� * g nameg flmin� CWR}u�� h0 { - 1 3 4 > " G ( C @ s g args , g filenamef rnrs/arithmetic/flonums.scm� o �� % q �� , g nameg fl+� CVR}u�� h0 { - 1 3 4 > " G ( C @ s g args , g filenamef rnrs/arithmetic/flonums.scm� s �� % u �� , g nameg fl*� CUR}u� h0 � - 1 3 � 4> " G @ � g fl1 * g args * g flargs * g filenamef rnrs/arithmetic/flonums.scm� w �� * g nameg fl-� CTR}u� h0 � - 1 3 � 4> " G @ � g fl1 * g args * g flargs * g filenamef rnrs/arithmetic/flonums.scm� | �� * g nameg fl/� CSRu� h r ]4 > " G 6 j g fl g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg flabs� CRRw� h � ]4 > " G 6 � g fl1 g fl2 g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg fldiv-and-mod� CQRw� h � ]4 > " G 6 | g fl1 g fl2 g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg fldiv� CPRw� h � ]4 > " G 6 | g fl1 g fl2 g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg flmod� CORw� h � ]4 > " G 6 � g fl1 g fl2 g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg fldiv0-and-mod0� CNRw� h � ]4 > " G 6 } g fl1 g fl2 g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg fldiv0� CMRw� h � ]4 > " G 6 } g fl1 g fl2 g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg flmod0� CLRu� h x ]4 > " G 6 p g fl g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg flnumerator� CKRu� h z ]4 > " G 6 r g fl g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg fldenominator� CJRu� h t ]4 > " G 6 l g fl g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg flfloor� CIRu� h v ]4 > " G 6 n g fl g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg flceiling� CHRu� h w ]4 > " G 6 o g fl g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg fltruncate� CGRu� h t ]4 > " G 6 l g fl g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg flround� CFRu� h r ]4 > " G 6 j g fl g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg flexp� CERu{�� hX � ) #3 4 > " G 4 �56]4 > " G 4 �54�5�6� g fl ) g fl + X g fl2 + X g filenamef rnrs/arithmetic/flonums.scm� $ � !�� H � $�� R � %�� ) + X g nameg fllog� CDRu� h r ]4 > " G 6 j g fl g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg flsin� CCRu� h r ]4 > " G 6 j g fl g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg flcos� CBRu� h r ]4 > " G 6 j g fl g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg fltan� CARu{� h s ]4 > " G 4 56 k g fl g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg flasin� C?Ru{� h s ]4 > " G 4 56 k g fl g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg flacos� C@Ru� h@ e ) 3 4 > " G 6]4 > " G 6 ] g fl ! g fl # ? g fl2 # ? ! # ? g nameg flatan� C>Ru{� h s ]4 > " G 4 56 k g fl g filenamef rnrs/arithmetic/flonums.scm� � �� g nameg flsqrt� C=Ru{� h( � ]4 > " G 4 56 } g fl1 # g fl2 # g filenamef rnrs/arithmetic/flonums.scm� � �� # g nameg flexpt� C<R4�;�i4�55;R4�4�;i55:R4�;i59R4�8�i4�558R4�4�8i557R4�8i56R�st| h8 � ] 4 5 $ " 445 > " G 6 � g fx 3 g t - g filenamef rnrs/arithmetic/flonums.scm� � �� 3 g nameg fixnum->flonum� C5RC � g m + g iface 2 � g iface � J g iface Q � g iface � j g iface q � g iface � g iface � g iface ! � g iface � : g filenamef rnrs/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
SAVE
CANCEL