[customer-summary] fix no-owner sorting properly

this comparison now works for no-owner sorting. 3a927ce2a, second
attempt.
pull/533/head
Christopher Lam 7 years ago
parent 1a16ba704b
commit 06e3fd4d28

@ -434,8 +434,8 @@
((customername)
(lambda (a b)
(cond
((vector-ref b 6) #t)
((vector-ref a 6) #f)
((not (vector-ref b 6)) #t)
((not (vector-ref a 6)) #f)
(else (str-op (vector-ref a 0) (vector-ref b 0))))))
;; currency sorting always alphabetical a-z
((currency)

Loading…
Cancel
Save