builder.util: remove old code
parent
698a66d076
commit
8ab25384c4
|
@ -41,14 +41,6 @@ DEFER: to-strings
|
||||||
|
|
||||||
: host-name* ( -- name ) host-name "." split first ;
|
: 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 )
|
: datestamp ( -- string )
|
||||||
now
|
now
|
||||||
{ year>> month>> day>> hour>> minute>> } <arr>
|
{ year>> month>> day>> hour>> minute>> } <arr>
|
||||||
|
|
Loading…
Reference in New Issue