irc.logbot: Use make to build timestamped string

2009-04-16 17:16:24 -03:00 · 2009-04-16 17:16:24 -03:00 · 01f7f560b0
parent 84032835f5
commit 01f7f560b0
1 changed files with 1 additions and 1 deletions
--- a/extra/irc/logbot/logbot.factor
+++ b/extra/irc/logbot/logbot.factor
@ -16,7 +16,7 @@ SYMBOL: current-stream
    "irc.freenode.org" 6667 "flogger" f <irc-profile> ;

 : add-timestamp ( string timestamp -- string )
-    timestamp>hms "[" prepend "] " append prepend ;
+    timestamp>hms [ "[" % % "] " % % ] "" make ;

 : timestamp-path ( timestamp -- path )
    timestamp>ymd ".log" append log-directory prepend-path ;