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:
Geert Janssens
2014-10-25 12:31:52 +02:00
parent 25a7e9ccf6
commit 283dfa2d83
14 changed files with 51 additions and 51 deletions

View File

@@ -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")

View File

@@ -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")

View File

@@ -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))

View File

@@ -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)

View File

@@ -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>"

View File

@@ -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>"

View File

@@ -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>"

View File

@@ -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)

View File

@@ -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"))

View File

@@ -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

View File

@@ -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"))

View File

@@ -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.

View File

@@ -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")

View File

@@ -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")