diff options
Diffstat (limited to 'module/output/common.scm')
| -rw-r--r-- | module/output/common.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/output/common.scm b/module/output/common.scm index c501bcae..3955442f 100644 --- a/module/output/common.scm +++ b/module/output/common.scm @@ -5,6 +5,8 @@ (define-module (output common) :use-module (util) + :use-module (srfi srfi-1) + :use-module (vcomponent) ) ;; TODO this is also defined @ (vcomponent parse component) @@ -12,7 +14,7 @@ (string=? "X-" (string-take (symbol->string symb) 2))) ;; TODO this is also defined twice -(define (generate-uuid) +(define-public (generate-uuid) ((@ (rnrs io ports) call-with-port) ((@ (ice-9 popen) open-input-pipe) "uuidgen") (@ (ice-9 rdelim) read-line))) |