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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2008-07-11 13:47:12 -05:00
parent 137742df4f 8ab25384c4
commit bedae67732
2 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/builder/util/util.factor
View File

@ -41,14 +41,6 @@ DEFER: to-strings
: host-name* ( -- name ) host-name "." split first ;
! : datestamp ( -- string )
! now `{ ,[ dup timestamp-year ]
! ,[ dup timestamp-month ]
! ,[ dup timestamp-day ]
! ,[ dup timestamp-hour ]
! ,[ timestamp-minute ] }
! [ pad-00 ] map "-" join ;
: datestamp ( -- string )
now
{ year>> month>> day>> hour>> minute>> } <arr>

11
extra/newfx/newfx.factor
View File

@ -1,5 +1,5 @@
USING: kernel sequences assocs qualified circular sets ;
USING: kernel sequences assocs qualified circular sets fry sequences.lib ;
USING: math multi-methods ;
@ -242,4 +242,11 @@ METHOD: as-mutate { object object assoc } set-at ;
: insert ( seq i obj -- seq ) >r cut r> prefix append ;
: splice ( seq i seq -- seq ) >r cut r> prepend append ;
: splice ( seq i seq -- seq ) >r cut r> prepend append ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: purge ( seq quot -- seq ) [ not ] compose filter ;
: purge! ( seq quot -- seq )
dupd '[ swap @ [ pluck! ] [ drop ] if ] each-index ;