steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "calendar.format: change to use formatting instead of math.parser.private." 

This reverts commit 3cfac7916a.
db4
John Benediktsson 2014-09-24 07:42:45 -07:00
parent ab61ba56fc
commit 13e5edc007
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/calendar/format/format.factor
View File

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