]> gitweb.factorcode.org Git - factor.git/commitdiff
calendar.format: change to use formatting instead of math.parser.private.
authorJohn Benediktsson <mrjbq7@gmail.com>
Tue, 5 Aug 2014 18:39:03 +0000 (11:39 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Tue, 5 Aug 2014 18:43:26 +0000 (11:43 -0700)
basis/calendar/format/format.factor

index 774d8121a6eee36b668255e02b3f17d4cd385bcc..837e43a64c5e0bae7564792e53f3de349abf5af0 100644 (file)
@@ -1,9 +1,8 @@
 ! Copyright (C) 2008, 2010 Slava Pestov, Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays calendar calendar.format.macros
-combinators io io.streams.string kernel math math.functions
-math.order math.parser math.parser.private present sequences
-typed ;
+combinators formatting io io.streams.string kernel math
+math.functions math.order math.parser present sequences typed ;
 IN: calendar.format
 
 : pad-00 ( n -- str ) number>string 2 CHAR: 0 pad-head ;
@@ -138,7 +137,7 @@ M: timestamp year. ( timestamp -- )
 ! algorithm to detect infinite decimals (e.g 1/3)
 : write-rfc3339-seconds ( timestamp -- )
     second>> 1 mod [
-        >float "%.6f" format-float [ CHAR: 0 = ] trim
+        "%.6f" sprintf [ CHAR: 0 = ] trim
         dup length 1 > [ write ] [ drop ] if
     ] unless-zero ;