diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-25 15:17:58 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-25 15:17:58 +0200 |
| commit | d361a47a0a59b72885bfa56624f47c90ba460b7c (patch) | |
| tree | 1f630771f27143fa9a626f882043306ecd62f3b5 /vkraus/services | |
| parent | b7ab36c663bf131dfdcd76d303005959ef21f055 (diff) | |
Update package
Diffstat (limited to 'vkraus/services')
| -rw-r--r-- | vkraus/services/disfluid.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/vkraus/services/disfluid.scm b/vkraus/services/disfluid.scm index dd361f6..bb2c535 100644 --- a/vkraus/services/disfluid.scm +++ b/vkraus/services/disfluid.scm @@ -223,10 +223,12 @@ (begin (slot-set! cfg 'server-name server-name) (uri-slot! cfg 'server-name) + (format (current-error-port) "Setting server-name to ~s\n" (server-name cfg)) (slot-set! cfg 'issuer server-name) (uri-slot! cfg 'issuer))) ;; #:issuer defaults to the server name - (next-method)) + (next-method) + (format (current-error-port) "Now server-name is set to ~s\n" (server-name cfg))) (define-method (kind (cfg <disfluid-issuer-configuration>)) "issuer") |