diff options
| -rw-r--r-- | src/org/euandre/queue.scm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/org/euandre/queue.scm b/src/org/euandre/queue.scm index 659f72a..b269374 100644 --- a/src/org/euandre/queue.scm +++ b/src/org/euandre/queue.scm @@ -606,12 +606,11 @@ to the list of supplementary groups of the user of such running process."))) (name 'configuration) (documentation "FIXME:DOCUMENTATION") (procedure - #~(lambda _ - (format #t "Debug procedure")) - #;(lambda _ - (for-each (lambda (name) - (format #t "/etc/~a/~a~%" #$config-dirname name)) - (map cyrus-service-configuration-name #$services)))))))))))) + (let ((names (map cyrus-service-configuration-name services))) + #~(lambda _ + (for-each (lambda (name) + (format #t "/etc/~a/~a~%" #$config-dirname name)) + '#$names)))))))))))) (define cyrus-sasl-service-type (service-type |