mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
Fix invocations of guile function 'load-from-path'
The '.scm' extension prevents loading of a precompiled version of the file from the %load-compiled-path and will always trigger an autocompilation instead. Omitting the extension properly allows the function to load a precompiled version if it exists and is more recent than the source file. This is only relevant for guile 2 but works ok for guile 1.8 as well so it's changed unconditionally.
This commit is contained in:
@@ -300,13 +300,13 @@
|
||||
;; make N_ available everywhere.
|
||||
(module-define! the-root-module 'N_ (module-ref (current-module) 'N_))
|
||||
|
||||
(load-from-path "c-interface.scm")
|
||||
(load-from-path "config-var.scm")
|
||||
(load-from-path "options.scm")
|
||||
(load-from-path "hooks.scm")
|
||||
(load-from-path "prefs.scm")
|
||||
(load-from-path "date-utilities.scm")
|
||||
(load-from-path "simple-obj.scm")
|
||||
(load-from-path "c-interface")
|
||||
(load-from-path "config-var")
|
||||
(load-from-path "options")
|
||||
(load-from-path "hooks")
|
||||
(load-from-path "prefs")
|
||||
(load-from-path "date-utilities")
|
||||
(load-from-path "simple-obj")
|
||||
|
||||
;; Business options
|
||||
(define gnc:*business-label* (N_ "Business"))
|
||||
@@ -343,5 +343,5 @@
|
||||
|
||||
(export gnc:*option-section-budgeting* gnc:*option-name-default-budget*)
|
||||
|
||||
(load-from-path "business-options.scm")
|
||||
(load-from-path "business-prefs.scm")
|
||||
(load-from-path "business-options")
|
||||
(load-from-path "business-prefs")
|
||||
|
||||
@@ -94,7 +94,7 @@
|
||||
(export trans-splits)
|
||||
(export gnc:transaction-scm-onto-transaction)
|
||||
|
||||
(load-from-path "gnc-numeric.scm")
|
||||
(load-from-path "commodity-table.scm")
|
||||
(load-from-path "engine-interface.scm")
|
||||
(load-from-path "engine-utilities.scm")
|
||||
(load-from-path "gnc-numeric")
|
||||
(load-from-path "commodity-table")
|
||||
(load-from-path "engine-interface")
|
||||
(load-from-path "engine-utilities")
|
||||
|
||||
@@ -19,7 +19,7 @@
|
||||
|
||||
(export gnc:kvp-option-dialog)
|
||||
|
||||
(load-from-path "gnc-menu-extensions.scm")
|
||||
(load-from-path "gnc-menu-extensions")
|
||||
|
||||
(define (gnc:kvp-option-dialog id-type slots title changed_cb)
|
||||
(let* ((options (gnc-make-kvp-options id-type))
|
||||
|
||||
@@ -31,14 +31,14 @@
|
||||
(gnc:module-load "gnucash/app-utils" 0)
|
||||
(gnc:module-load "gnucash/gnome-utils" 0)
|
||||
|
||||
(load-from-path "qif-import/qif-objects.scm") ;; class definitions
|
||||
(load-from-path "qif-import/qif-parse.scm") ;; string-to-value
|
||||
(load-from-path "qif-import/qif-utils.scm")
|
||||
(load-from-path "qif-import/qif-file.scm") ;; actual file reading
|
||||
(load-from-path "qif-import/qif-dialog-utils.scm") ;; build displays
|
||||
(load-from-path "qif-import/qif-guess-map.scm") ;; build acct mappings
|
||||
(load-from-path "qif-import/qif-to-gnc.scm") ;; conv QIF xtns to GNC
|
||||
(load-from-path "qif-import/qif-merge-groups.scm") ;; merge into user's acct
|
||||
(load-from-path "qif-import/qif-objects") ;; class definitions
|
||||
(load-from-path "qif-import/qif-parse") ;; string-to-value
|
||||
(load-from-path "qif-import/qif-utils")
|
||||
(load-from-path "qif-import/qif-file") ;; actual file reading
|
||||
(load-from-path "qif-import/qif-dialog-utils") ;; build displays
|
||||
(load-from-path "qif-import/qif-guess-map") ;; build acct mappings
|
||||
(load-from-path "qif-import/qif-to-gnc") ;; conv QIF xtns to GNC
|
||||
(load-from-path "qif-import/qif-merge-groups") ;; merge into user's acct
|
||||
|
||||
(export make-qif-file)
|
||||
(export make-ticker-map)
|
||||
|
||||
@@ -21,7 +21,7 @@
|
||||
;; Boston, MA 02110-1301, USA gnu@gnu.org
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(load-from-path "html-jqplot.scm")
|
||||
(load-from-path "html-jqplot")
|
||||
|
||||
(define <html-barchart>
|
||||
(make-record-type "<html-barchart>"
|
||||
|
||||
@@ -21,7 +21,7 @@
|
||||
;; Boston, MA 02110-1301, USA gnu@gnu.org
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(load-from-path "html-jqplot.scm")
|
||||
(load-from-path "html-jqplot")
|
||||
|
||||
(define <html-piechart>
|
||||
(make-record-type "<html-piechart>"
|
||||
|
||||
@@ -24,7 +24,7 @@
|
||||
;; Boston, MA 02110-1301, USA gnu@gnu.org
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
(load-from-path "html-jqplot.scm")
|
||||
(load-from-path "html-jqplot")
|
||||
|
||||
(define <html-scatter>
|
||||
(make-record-type "<html-scatter>"
|
||||
|
||||
@@ -700,22 +700,22 @@
|
||||
(export gnc:get-assoc-account-balances-total)
|
||||
(export make-file-url)
|
||||
|
||||
(load-from-path "commodity-utilities.scm")
|
||||
(load-from-path "html-barchart.scm")
|
||||
(load-from-path "html-document.scm")
|
||||
(load-from-path "html-piechart.scm")
|
||||
(load-from-path "html-scatter.scm")
|
||||
(load-from-path "html-linechart.scm")
|
||||
(load-from-path "html-style-info.scm")
|
||||
(load-from-path "html-fonts.scm")
|
||||
(load-from-path "commodity-utilities")
|
||||
(load-from-path "html-barchart")
|
||||
(load-from-path "html-document")
|
||||
(load-from-path "html-piechart")
|
||||
(load-from-path "html-scatter")
|
||||
(load-from-path "html-linechart")
|
||||
(load-from-path "html-style-info")
|
||||
(load-from-path "html-fonts")
|
||||
|
||||
(load-from-path "html-style-sheet.scm")
|
||||
(load-from-path "html-table.scm")
|
||||
(load-from-path "html-text.scm")
|
||||
(load-from-path "html-acct-table.scm")
|
||||
(load-from-path "html-utilities.scm")
|
||||
(load-from-path "options-utilities.scm")
|
||||
(load-from-path "report-utilities.scm")
|
||||
(load-from-path "report.scm")
|
||||
(load-from-path "html-style-sheet")
|
||||
(load-from-path "html-table")
|
||||
(load-from-path "html-text")
|
||||
(load-from-path "html-acct-table")
|
||||
(load-from-path "html-utilities")
|
||||
(load-from-path "options-utilities")
|
||||
(load-from-path "report-utilities")
|
||||
(load-from-path "report")
|
||||
|
||||
(gnc-hook-add-scm-dangler HOOK-SAVE-OPTIONS gnc:save-style-sheet-options)
|
||||
|
||||
@@ -36,7 +36,7 @@
|
||||
|
||||
;; included since Bug726449
|
||||
(use-modules (ice-9 regex)) ;; for regexp-substitute/global, used by jpqplot
|
||||
(load-from-path "html-jqplot.scm") ;; for jqplot-escape-string
|
||||
(load-from-path "html-jqplot") ;; for jqplot-escape-string
|
||||
|
||||
(define reportname (N_ "Budget Barchart"))
|
||||
|
||||
|
||||
@@ -37,7 +37,7 @@
|
||||
|
||||
;; included since Bug726449
|
||||
(use-modules (ice-9 regex)) ;; for regexp-substitute/global, used by jpqplot
|
||||
(load-from-path "html-jqplot.scm") ;; for jqplot-escape-string
|
||||
(load-from-path "html-jqplot") ;; for jqplot-escape-string
|
||||
|
||||
;; The option names are defined here to 1. save typing and 2. avoid
|
||||
;; spelling errors. The *reportnames* are defined here (and not only
|
||||
|
||||
@@ -39,7 +39,7 @@
|
||||
|
||||
;; included since Bug726449
|
||||
(use-modules (ice-9 regex)) ;; for regexp-substitute/global, used by jpqplot
|
||||
(load-from-path "html-jqplot.scm") ;; for jqplot-escape-string
|
||||
(load-from-path "html-jqplot") ;; for jqplot-escape-string
|
||||
|
||||
(define reportname (N_ "Income/Expense Chart"))
|
||||
|
||||
|
||||
@@ -42,8 +42,8 @@
|
||||
|
||||
;; files we can load from the top-level because they're "well behaved"
|
||||
;; (these should probably be in modules eventually)
|
||||
(load-from-path "string.scm")
|
||||
(load-from-path "fin.scm")
|
||||
(load-from-path "string")
|
||||
(load-from-path "fin")
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Exports
|
||||
@@ -57,7 +57,7 @@
|
||||
(export gnc:safe-strcmp) ;; only used by aging.scm atm...
|
||||
|
||||
;; Get the Makefile.am/configure.in generated variables.
|
||||
(load-from-path "build-config.scm")
|
||||
(load-from-path "build-config")
|
||||
|
||||
;; Do this stuff very early -- but other than that, don't add any
|
||||
;; executable code until the end of the file if you can help it.
|
||||
|
||||
@@ -29,5 +29,5 @@
|
||||
|
||||
(export gnc:*tax-label* gnc:*tax-nr-label*)
|
||||
|
||||
(load-from-path "txf-de_DE.scm")
|
||||
(load-from-path "txf-help-de_DE.scm")
|
||||
(load-from-path "txf-de_DE")
|
||||
(load-from-path "txf-help-de_DE")
|
||||
|
||||
@@ -21,5 +21,5 @@
|
||||
(export txf-asset-categories)
|
||||
(export txf-liab-eq-categories)
|
||||
|
||||
(load-from-path "txf.scm")
|
||||
(load-from-path "txf-help.scm")
|
||||
(load-from-path "txf")
|
||||
(load-from-path "txf-help")
|
||||
|
||||
Reference in New Issue
Block a user