OLD | NEW |
1 /* | 1 /* |
2 This file is part of LilyPond, the GNU music typesetter. | 2 This file is part of LilyPond, the GNU music typesetter. |
3 | 3 |
4 Copyright (C) 2006--2011 Han-Wen Nienhuys <hanwen@lilypond.org> | 4 Copyright (C) 2006--2011 Han-Wen Nienhuys <hanwen@lilypond.org> |
5 | 5 |
6 | 6 |
7 LilyPond is free software: you can redistribute it and/or modify | 7 LilyPond is free software: you can redistribute it and/or modify |
8 it under the terms of the GNU General Public License as published by | 8 it under the terms of the GNU General Public License as published by |
9 the Free Software Foundation, either version 3 of the License, or | 9 the Free Software Foundation, either version 3 of the License, or |
10 (at your option) any later version. | 10 (at your option) any later version. |
(...skipping 25 matching lines...) Expand all Loading... |
36 | 36 |
37 scm_init_funcs_->push_back (f); | 37 scm_init_funcs_->push_back (f); |
38 } | 38 } |
39 | 39 |
40 void | 40 void |
41 ly_init_ly_module (void *) | 41 ly_init_ly_module (void *) |
42 { | 42 { |
43 for (vsize i = scm_init_funcs_->size (); i--;) | 43 for (vsize i = scm_init_funcs_->size (); i--;) |
44 (scm_init_funcs_->at (i)) (); | 44 (scm_init_funcs_->at (i)) (); |
45 | 45 |
46 if (be_verbose_global) | 46 if (is_loglevel (LOG_DEBUG)) |
47 { | 47 { |
48 progress_indication ("["); | 48 debug_output ("[", true); |
49 scm_display (scm_c_eval_string ("(%search-load-path \"lily.scm\")"), | 49 scm_display (scm_c_eval_string ("(%search-load-path \"lily.scm\")"), |
50 scm_current_error_port ()); | 50 scm_current_error_port ()); |
51 progress_indication ("]\n"); | 51 debug_output ("]\n", false); |
52 } | 52 } |
53 | 53 |
54 scm_primitive_load_path (scm_from_locale_string ("lily.scm")); | 54 scm_primitive_load_path (scm_from_locale_string ("lily.scm")); |
55 } | 55 } |
56 | 56 |
57 SCM global_lily_module; | 57 SCM global_lily_module; |
58 | 58 |
59 void | 59 void |
60 ly_c_init_guile () | 60 ly_c_init_guile () |
61 { | 61 { |
62 global_lily_module = scm_c_define_module ("lily", ly_init_ly_module, 0); | 62 global_lily_module = scm_c_define_module ("lily", ly_init_ly_module, 0); |
63 scm_c_use_module ("lily"); | 63 scm_c_use_module ("lily"); |
64 } | 64 } |
OLD | NEW |