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¤ gflatan¤ ?gflasin¤ @gflacos¤ Agfltan¤ Bgflcos¤ Cgflsin¤ Dgfllog¤ Egflexp¤ Fgflround¤ Gg fltruncate¤ Hg flceiling¤ Igflfloor¤ Jg fldenominator¤ Kg flnumerator¤ Lgflmod0¤ Mgfldiv0¤ Ngfldiv0-and-mod0¤ Ogflmod¤ Pgfldiv¤ Qg fldiv-and-mod¤ Rgflabs¤ Sgfl/¤ Tgfl-¤ Ugfl*¤ Vgfl+¤ Wgflmin¤ Xgflmax¤ Ygflnan?¤ Zg flinfinite?¤ [g flfinite?¤ \gfleven?¤ ]gflodd?¤ ^g flnegative?¤ _g flpositive?¤ `gflzero?¤ ag flinteger?¤ bgfl>=?¤ cgfl>?¤ dgfl<=?¤ egflflonum¤ 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¤ g div-and-mod¤ gdiv¤ ‘gmod¤ ’g div0-and-mod0¤ “gdiv0¤ ”gmod0¤ •g numerator¤ –g denominator¤ —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 ŒŒ  3 gnameg 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"G@mgargs #gfilenamefrnrs/arithmetic/flonums.scmŒ W ŒŒ # gnamegfl<=?ŒCdR}uh(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Œ ] ŒŒ   gnameg flpositive?ŒC_Ruh w]4>"G ’Cogfl  gfilenamefrnrs/arithmetic/flonums.scmŒ ^ ŒŒ   gnameg flnegative?Œ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 ŒŒ  5 gnameg flfinite?ŒC[Ru"h w]4>"G6ogfl  gfilenamefrnrs/arithmetic/flonums.scmŒ b ŒŒ   gnameg flinfinite?Œ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}uh0—-13Œ4>"G@gfl1 *gargs *gflargs   *gfilenamefrnrs/arithmetic/flonums.scmŒ | ŒŒ * gnamegfl/ŒCSRuŽh r]4>"G6jgfl  gfilenamefrnrs/arithmetic/flonums.scmŒ ŒŒ   gnamegflabsŒCRRwh Œ]4>"G6„gfl1  gfl2  gfilenamefrnrs/arithmetic/flonums.scmŒ ƒ ŒŒ   gnameg fldiv-and-modŒCQRwh „]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Œ › ŒŒ   gnameg flnumeratorŒ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ŒCDRuh 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"G6gfx  3gt -gfilenamefrnrs/arithmetic/flonums.scmŒ Ç ŒŒ  3 gnamegfixnum->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