From 2d3d09ac04f766ad3d111d2b9a61f0d221727249 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Tue, 16 Jan 2007 17:50:42 +0100 Subject: [PATCH] fix standalone functions --- scm/standalone.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/scm/standalone.scm b/scm/standalone.scm index 681a49d042..5a644d2b3d 100644 --- a/scm/standalone.scm +++ b/scm/standalone.scm @@ -5,6 +5,9 @@ ;;;; (c) 1998--2006 Jan Nieuwenhuizen ;;;; Han-Wen Nienhuys + +(use-modules (ice-9 rdelim)) + (define standalone (not (defined? 'ly:gulp-file))) ;;(write standalone (current-error-port)) @@ -16,8 +19,8 @@ (define (scm-gulp-file name) (set! %load-path - (cons (string-append (getenv 'LILYPONDPREFIX) "/ly") - (cons (string-append (getenv 'LILYPONDPREFIX) "/ps") + (cons (string-append (getenv "LILYPONDPREFIX") "/ly") + (cons (string-append (getenv "LILYPONDPREFIX") "/ps") %load-path))) (let ((path (%search-load-path name))) (if path -- 2.39.2