From 7ab56fc12e320ede3163b93f3d35f78432d0c93c Mon Sep 17 00:00:00 2001 From: Derek Atkins Date: Thu, 21 Nov 2002 20:34:36 +0000 Subject: [PATCH] * src/scm/main.scm -- fix the load of price-quotes on guile-1.4.1 git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7515 57a11ea4-9604-0410-9ed3-97b8803252fd --- ChangeLog | 2 ++ src/scm/main.scm | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index ff2f5090da..95d071f1a3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,8 @@ 2002-11-21 Derek Atkins * business-core/test/*.c -- fix the tests for begin/commit edit + * src/scm/main.scm -- fix the load of price-quotes on guile-1.4.1 + 2002-11-21 Benoit Grégoire * src/import-export/Transaction-matcher.c: Tweak the matching heuristics. diff --git a/src/scm/main.scm b/src/scm/main.scm index 15f2634fa5..a986f6afcf 100644 --- a/src/scm/main.scm +++ b/src/scm/main.scm @@ -139,7 +139,7 @@ (cond ((or (string=? "1.3" (version)) (string=? "1.3.4" (version)) - (string=? "1.4" (version))) + (string=? "1.4" (substring (version) 0 3))) (lambda (module) (process-use-modules (list module)))) (else