Dolda2000 GitWeb
/
doldaconnect.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Unlink the PID file when terminating.
[doldaconnect.git]
/
lib
/
guile
/
chatlog
diff --git
a/lib/guile/chatlog
b/lib/guile/chatlog
index
0c5b097
..
e94e9c3
100755
(executable)
--- a/
lib/guile/chatlog
+++ b/
lib/guile/chatlog
@@
-118,7
+118,7
@@
(set! last-fn (vector-ref ires 0))))
(for-each
(lambda (p)
(set! last-fn (vector-ref ires 0))))
(for-each
(lambda (p)
- (write-line (string-append (strftime "%H:%M:%S" (localtime (current-time)))
":
<" (vector-ref ires 3) "> " (vector-ref ires 4)) p))
+ (write-line (string-append (strftime "%H:%M:%S" (localtime (current-time)))
(if (eq? (vector-ref ires 1) 0) "!" ":") "
<" (vector-ref ires 3) "> " (vector-ref ires 4)) p))
(list p (current-output-port)))
(close-port p))
))
(list p (current-output-port)))
(close-port p))
))