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

dt>seconds -> duration>seconds

db4
Doug Coleman 2008-09-01 20:09:51 -05:00
parent c4f85155a7
commit f4dfa63452
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/animations/animations.factor
View File

@ -11,7 +11,7 @@ SYMBOL: sleep-period
! : my-progress ( -- progress ) millis ! : my-progress ( -- progress ) millis
: progress ( -- progress ) millis last-loop get - reset-progress ; : progress ( -- progress ) millis last-loop get - reset-progress ;
: progress-peek ( -- progress ) millis last-loop get - ; : progress-peek ( -- progress ) millis last-loop get - ;
: set-end ( duration -- end-time ) dt>milliseconds millis + ; : set-end ( duration -- end-time ) duration>milliseconds millis + ;
: loop ( quot end -- ) dup millis > [ [ dup call ] dip loop ] [ 2drop ] if ; inline : loop ( quot end -- ) dup millis > [ [ dup call ] dip loop ] [ 2drop ] if ; inline
: animate ( quot duration -- ) reset-progress set-end loop ; inline : animate ( quot duration -- ) reset-progress set-end loop ; inline
: sample ( revs quot -- avg ) reset-progress dupd times progress swap / ; inline : sample ( revs quot -- avg ) reset-progress dupd times progress swap / ; inline

2
extra/http/http.factor
View File

@ -106,7 +106,7 @@ TUPLE: cookie name value version comment path domain expires max-age http-only s
[ [
{ {
{ [ dup timestamp? ] [ timestamp>cookie-string ] } { [ dup timestamp? ] [ timestamp>cookie-string ] }
{ [ dup duration? ] [ dt>seconds number>string ] } { [ dup duration? ] [ duration>seconds number>string ] }
{ [ dup real? ] [ number>string ] } { [ dup real? ] [ number>string ] }
[ ] [ ]
} cond } cond