diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-25 23:54:48 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-25 23:54:48 +0200 |
| commit | dbd8713dda050a7b7147de6e5eacbf43d7fcc2db (patch) | |
| tree | be8ca4fb35165df0fae371ca7a3528802445982e /module/output/common.scm | |
| parent | Minor changes to vcomponent base. (diff) | |
| download | calp-dbd8713dda050a7b7147de6e5eacbf43d7fcc2db.tar.gz calp-dbd8713dda050a7b7147de6e5eacbf43d7fcc2db.tar.xz | |
Fix number of problems with new serializers.
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))) |