[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 _.
This commit is contained in:
Christopher Lam 2020-04-05 00:35:00 +08:00
parent d596056786
commit 7189337b02

View File

@ -54,7 +54,7 @@
(define-public safe-cadr (define-public safe-cadr
(match-lambda (match-lambda
((_ x . _) x) ((_ x . y) x)
(_ '()))) (_ '())))
(define-public (find-file fname) (define-public (find-file fname)