gnucash maint: [eguile-utilities] prevent crash in balsheet-eg.scm

[Christopher Lam]

Updated	 via  https://github.com/Gnucash/gnucash/commit/7189337b (commit)
	from  https://github.com/Gnucash/gnucash/commit/d5960567 (commit)



commit 7189337b026bdeae45b963c7022775a88fabcc17
Author: Christopher Lam <christopher.lck at gmail.com>
Date:   Sun Apr 5 00:35:00 2020 +0800

    [eguile-utilities] prevent crash in balsheet-eg.scm
    
    bb986e474 use of (ice-9 match) was technically sound however exposes a
    subtle bug; _ in the matching pattern is meant to match anything
    however it exposes undefined behaviour when _ is already bound to
    gnc:gettext. Solution for now is to omit the second _.

diff --git a/gnucash/report/report-system/eguile-utilities.scm b/gnucash/report/report-system/eguile-utilities.scm
index f3e3e4923..71c8fdf91 100644
--- a/gnucash/report/report-system/eguile-utilities.scm
+++ b/gnucash/report/report-system/eguile-utilities.scm
@@ -54,7 +54,7 @@
 
 (define-public safe-cadr
   (match-lambda
-    ((_ x . _) x)
+    ((_ x . y) x)
     (_ '())))
 
 (define-public (find-file fname)



Summary of changes:
 gnucash/report/report-system/eguile-utilities.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)