Left: | ||
Right: |
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) 1997--2020 Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 Copyright (C) 1997--2020 Han-Wen Nienhuys <hanwen@xs4all.nl> |
5 | 5 |
6 LilyPond is free software: you can redistribute it and/or modify | 6 LilyPond is free software: you can redistribute it and/or modify |
7 it under the terms of the GNU General Public License as published by | 7 it under the terms of the GNU General Public License as published by |
8 the Free Software Foundation, either version 3 of the License, or | 8 the Free Software Foundation, either version 3 of the License, or |
9 (at your option) any later version. | 9 (at your option) any later version. |
10 | 10 |
(...skipping 739 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... | |
750 } | 750 } |
751 | 751 |
752 #if (GUILEV2) | 752 #if (GUILEV2) |
753 void | 753 void |
754 setup_guile_v2_env () | 754 setup_guile_v2_env () |
755 /* | 755 /* |
756 * Set up environment variables relevant to compiling | 756 * Set up environment variables relevant to compiling |
757 * Scheme files for Guile V2. | 757 * Scheme files for Guile V2. |
758 */ | 758 */ |
759 { | 759 { |
760 sane_putenv("GUILE_AUTO_COMPILE", "0", true); // disable auto-compile | 760 sane_putenv("GUILE_AUTO_COMPILE", "1", false); // disable auto-compile |
thomasmorley651
2020/01/31 19:43:34
Shouldn't the comment be changed as well?
hanwenn
2020/01/31 20:57:55
Done.
| |
761 sane_putenv("GUILE_WARN_DEPRECATED", | 761 sane_putenv("GUILE_WARN_DEPRECATED", |
762 "detailed", "true"); // set Guile to info re deprecation | 762 "detailed", "true"); // set Guile to info re deprecation |
763 /* | 763 /* |
764 Set root for Guile %compile-fallback to | 764 Set root for Guile %compile-fallback to |
765 Lilypond root for its data. | 765 Lilypond root for its data. |
766 */ | 766 */ |
767 sane_putenv("XDG_CACHE_HOME", | 767 sane_putenv("XDG_CACHE_HOME", |
768 lilypond_datadir, true); | 768 lilypond_datadir, true); |
769 } | 769 } |
770 #endif | 770 #endif |
(...skipping 62 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... | |
833 { | 833 { |
834 error (_f ("exception caught: %s", e.what ())); | 834 error (_f ("exception caught: %s", e.what ())); |
835 }; | 835 }; |
836 #else | 836 #else |
837 scm_boot_guile (argc, argv, main_with_guile, 0); | 837 scm_boot_guile (argc, argv, main_with_guile, 0); |
838 #endif | 838 #endif |
839 | 839 |
840 /* Only reachable if GUILE exits. That is an error. */ | 840 /* Only reachable if GUILE exits. That is an error. */ |
841 return 1; | 841 return 1; |
842 } | 842 } |
OLD | NEW |