[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
(match-lambda
((_ x . _) x)
((_ x . y) x)
(_ '())))
(define-public (find-file fname)