mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
[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:
parent
d596056786
commit
7189337b02
@ -54,7 +54,7 @@
|
||||
|
||||
(define-public safe-cadr
|
||||
(match-lambda
|
||||
((_ x . _) x)
|
||||
((_ x . y) x)
|
||||
(_ '())))
|
||||
|
||||
(define-public (find-file fname)
|
||||
|
Loading…
Reference in New Issue
Block a user