From 89e88ac9831aceca98ca744c1de707076f0c24a4 Mon Sep 17 00:00:00 2001
From: Christian Stimming <stimming@tuhh.de>
Date: Fri, 23 Apr 2010 21:02:30 +0000
Subject: [PATCH] Bug #615168: Fix bogus gnc:safe-strcmp definition

Patch by Andy Wingo.

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@19065 57a11ea4-9604-0410-9ed3-97b8803252fd
---
 src/scm/main.scm | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/src/scm/main.scm b/src/scm/main.scm
index 7459225758..ef659ffc29 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)