r19065 - gnucash/trunk/src/scm - Bug #615168: Fix bogus gnc:safe-strcmp definition

[Christian Stimming]

Author: cstim
Date: 2010-04-23 17:02:30 -0400 (Fri, 23 Apr 2010)
New Revision: 19065
Trac: http://svn.gnucash.org/trac/changeset/19065

Modified:
   gnucash/trunk/src/scm/main.scm
Log:
Bug #615168: Fix bogus gnc:safe-strcmp definition

Patch by Andy Wingo.

Modified: gnucash/trunk/src/scm/main.scm
===================================================================
--- gnucash/trunk/src/scm/main.scm	2010-04-23 21:02:09 UTC (rev 19064)
+++ gnucash/trunk/src/scm/main.scm	2010-04-23 21:02:30 UTC (rev 19065)
@@ -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)