[Gnucash-changes] Fix another slib3 issue.

[Derek Atkins]

Log Message:
-----------
Fix another slib3 issue.

	* src/engine/iso-currencies-to-c: don't automatically try to
	  (require 'format), so gnucash will build on an slib-3 system.

Modified Files:
--------------
    gnucash:
        ChangeLog
    gnucash/src/engine:
        iso-currencies-to-c

Revision Data
-------------
Index: ChangeLog
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/ChangeLog,v
retrieving revision 1.1807
retrieving revision 1.1808
diff -LChangeLog -LChangeLog -u -r1.1807 -r1.1808
--- ChangeLog
+++ ChangeLog
@@ -1,3 +1,8 @@
+2004-05-05  Derek Atkins  <derek at ihtfp.com>
+
+	* src/engine/iso-currencies-to-c: don't automatically try to
+	  (require 'format), so gnucash will build on an slib-3 system.
+
 2004-05-02  David Hampton  <hampton at employees.org>
 
 	* src/business/business-core/Makefile.am:
Index: iso-currencies-to-c
===================================================================
RCS file: /home/cvs/cvsroot/gnucash/src/engine/iso-currencies-to-c,v
retrieving revision 1.7
retrieving revision 1.8
diff -Lsrc/engine/iso-currencies-to-c -Lsrc/engine/iso-currencies-to-c -u -r1.7 -r1.8
--- src/engine/iso-currencies-to-c
+++ src/engine/iso-currencies-to-c
@@ -4,7 +4,12 @@
 
 (use-modules (srfi srfi-2))
 (use-modules (ice-9 slib))
-(require 'format)
+;; Test for simple-format
+(if (not (defined? 'simple-format))
+    (begin
+      (require 'format)
+      (export simple-format)
+      (define simple-format format)))
 
 (define *currency-file* (string-append (getenv "srcdir") "/" "iso-4217-currencies.scm"))
 (define *c-file-name* "iso-4217-currencies.c")