X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fstandalone.scm;h=bd3b7593acb96917875efadc1180a66b02d849fe;hb=1656075e24330067ff1dfa4d8253e5f3e5783014;hp=5a644d2b3d1b8c9e1312f90b5b39ea306e469ab2;hpb=1b344bd7394e98933bc482a7b64b8af681a96861;p=lilypond.git diff --git a/scm/standalone.scm b/scm/standalone.scm index 5a644d2b3d..bd3b7593ac 100644 --- a/scm/standalone.scm +++ b/scm/standalone.scm @@ -1,9 +1,20 @@ -;;;; 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--2006 Jan Nieuwenhuizen +;;;; 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)) @@ -19,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