summaryrefslogtreecommitdiff
path: root/vkraus/services/disfluid.scm
diff options
context:
space:
mode:
authorVivien Kraus <vivien@planete-kraus.eu>2021-09-25 13:57:14 +0200
committerVivien Kraus <vivien@planete-kraus.eu>2021-09-25 13:57:14 +0200
commitecf66fae4716d7dc954250c196dcb099a165f972 (patch)
tree831b8792cbeef5b0526cd8f8165870b00a78abba /vkraus/services/disfluid.scm
parent2b1e0b0428d110bf79192485b73c1f0e926f23ef (diff)
Update package
Diffstat (limited to 'vkraus/services/disfluid.scm')
-rw-r--r--vkraus/services/disfluid.scm4
1 files changed, 1 insertions, 3 deletions
diff --git a/vkraus/services/disfluid.scm b/vkraus/services/disfluid.scm
index be6fd8b..d9615b3 100644
--- a/vkraus/services/disfluid.scm
+++ b/vkraus/services/disfluid.scm
@@ -221,10 +221,8 @@
initargs #t
((server-name #f))
(begin
- (format (current-error-port) "server-name is ~s, setting issuer to it...\n" server-name)
(slot-set! cfg 'issuer server-name)
- (uri-slot! cfg 'issuer)
- (format (current-error-port) "issuer is set to ~s.\n" (issue rcfg))))
+ (uri-slot! cfg 'issuer)))
;; #:issuer defaults to the server name
(next-method))