diff options
author | Nils Gey <denemo@nilsgey.de> | 2011-02-12 10:37:44 +0100 |
---|---|---|
committer | Nils Gey <denemo@nilsgey.de> | 2011-02-12 10:37:44 +0100 |
commit | 9f8f88c1a36f107020543cd886e99cf13cdc0d21 (patch) | |
tree | 1d7120cc3d8bec9cf56b9b388c1c04722b004bce | |
parent | 783d3fbfb3a7fdfa70fad1bdfcda94300d1cf77d (diff) |
Use the whole path for loading .scm files in denemo.scm
-rw-r--r-- | actions/denemo.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/actions/denemo.scm b/actions/denemo.scm index 19e41fc5..381a92ec 100644 --- a/actions/denemo.scm +++ b/actions/denemo.scm @@ -4,10 +4,13 @@ (use-modules (ice-9 regex)) (use-modules (ice-9 optargs)) ;Denemo subsystems and extra functions in additional files. -(load "ans.scm") ; Abstract Note System for pitch calculations -(load "notationmagick.scm") ; Insert and modify, mostly randomized, music. Depends on ans.scm -(load "abstractionmovement.scm") ; Create an abstract form of the music in Scheme for further analysing. Depends on ans.scm -(load "commandlist.scm") ; Provide scrolling up and down through a list of commands. An extended toggle through multiple states. +(define (LoadDenemo file) + (load (string-append DENEMO_ACTIONS_DIR file))) + +(LoadDenemo "ans.scm") ; Abstract Note System for pitch calculations +(LoadDenemo "notationmagick.scm") ; Insert and modify, mostly randomized, music. Depends on ans.scm +(LoadDenemo "abstractionmovement.scm") ; Create an abstract form of the music in Scheme for further analysing. Depends on ans.scm +(LoadDenemo "commandlist.scm") ; Provide scrolling up and down through a list of commands. An extended toggle through multiple states. ;Needed to see if lyimport / mxml import is called from inside or outside Denemo (define Denemo #t) |