From 847cf8c8c7212c384b56a7aa09e98de3ffef1714 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sat, 6 Jan 2007 17:06:39 +0100 Subject: [PATCH] make to-xml.scm a module. --- input/regression/to-xml.ly | 8 +++----- scm/to-xml.scm | 3 +++ 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/input/regression/to-xml.ly b/input/regression/to-xml.ly index c2f39725c9..0a3cc4a35d 100644 --- a/input/regression/to-xml.ly +++ b/input/regression/to-xml.ly @@ -2,11 +2,10 @@ testMusic = { << c''4 \\ g'4 >> } -#(load-from-path "to-xml.scm") +#(use-modules (scm to-xml)) + +#(ly:progress "\nXML:\n\n~A\n" (call-with-output-string (lambda (p) (music-to-xml testMusic p)))) -#(ly:progress "\nXML:\n\n~A\n" - (call-with-output-string - (lambda (p) (music-to-xml testMusic p)))) \header { texidoc = @@ -15,4 +14,3 @@ testMusic = { << c''4 \\ g'4 >> } { \testMusic } - diff --git a/scm/to-xml.scm b/scm/to-xml.scm index b1b2ed79a6..409247d0a5 100644 --- a/scm/to-xml.scm +++ b/scm/to-xml.scm @@ -5,8 +5,11 @@ ;;;; (c) 2003--2006 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen +(define-module (scm to-xml)) + (use-modules (ice-9 regex) (srfi srfi-1) + (lily) (oop goops)) " -- 2.39.2