diff --git a/extra/builder/util/util.factor b/extra/builder/util/util.factor index 320f0e0448..47db4c52c9 100644 --- a/extra/builder/util/util.factor +++ b/extra/builder/util/util.factor @@ -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>> }