From dbd8713dda050a7b7147de6e5eacbf43d7fcc2db Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 25 Jun 2020 23:54:48 +0200 Subject: Fix number of problems with new serializers. --- module/output/common.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'module/output/common.scm') 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))) -- cgit v1.2.3