[PATCH 09/13] fix bogus gnc:safe-strcmp definition

[Andy Wingo]

---
 src/scm/main.scm |   19 +++++++++----------
 1 files changed, 9 insertions(+), 10 deletions(-)

diff --git a/src/scm/main.scm b/src/scm/main.scm
index 7459225..ef659ff 100644
--- a/src/scm/main.scm
+++ b/src/scm/main.scm
@@ -83,16 +83,15 @@
 ;; various utilities
 
 (define (gnc:safe-strcmp a b)
-  (cond
-   (if (and a b)
-       (cond
-        ((string<? a b) -1)
-        ((string>? a b) 1)
-        (else 0))
-       (cond
-        (a 1)
-        (b -1)
-        (else 0)))))
+  (if (and a b)
+      (cond
+       ((string<? a b) -1)
+       ((string>? a b) 1)
+       (else 0))
+      (cond
+       (a 1)
+       (b -1)
+       (else 0))))
 
 (if (not (defined? 'hash-fold))
     (define (hash-fold proc init table)
-- 
1.6.2.5


--=-=-=
Content-Type: text/x-patch
Content-Disposition: attachment;
 filename=0010-we-always-have-hash-fold.patch