X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fstandalone.scm;h=bd3b7593acb96917875efadc1180a66b02d849fe;hb=ee70161485a2d2f347db3e29724a943c741ef524;hp=c51cb78c294171b2f010533050e07335606baf08;hpb=2745cbd907f8216a4cc1fc5f488ae19efdfdbd10;p=lilypond.git diff --git a/scm/standalone.scm b/scm/standalone.scm index c51cb78c29..bd3b7593ac 100644 --- a/scm/standalone.scm +++ b/scm/standalone.scm @@ -1,9 +1,23 @@ -;;;; standalone.scm -- implement Scheme stuff for use without LilyPond +;;;; This file is part of LilyPond, the GNU music typesetter. ;;;; -;;;; source file of the GNU LilyPond music typesetter -;;;; -;;;; (c) 1998--2003 Jan Nieuwenhuizen -;;;; Han-Wen Nienhuys +;;;; Copyright (C) 1998--2012 Jan Nieuwenhuizen +;;;; Han-Wen Nienhuys +;;;; +;;;; LilyPond is free software: you can redistribute it and/or modify +;;;; it under the terms of the GNU General Public License as published by +;;;; the Free Software Foundation, either version 3 of the License, or +;;;; (at your option) any later version. +;;;; +;;;; LilyPond is distributed in the hope that it will be useful, +;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;;; GNU General Public License for more details. +;;;; +;;;; You should have received a copy of the GNU General Public License +;;;; along with LilyPond. If not, see . + + +(use-modules (ice-9 rdelim)) (define standalone (not (defined? 'ly:gulp-file))) ;;(write standalone (current-error-port)) @@ -16,8 +30,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 "LILYPOND_DATADIR") "/ly") + (cons (string-append (getenv "LILYPOND_DATADIR") "/ps") %load-path))) (let ((path (%search-load-path name))) (if path