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
|
(define-public safe-cadr
|
||||||
(match-lambda
|
(match-lambda
|
||||||
((_ x . _) x)
|
((_ x . y) x)
|
||||||
(_ '())))
|
(_ '())))
|
||||||
|
|
||||||
(define-public (find-file fname)
|
(define-public (find-file fname)
|
||||||
|
Loading…
Reference in New Issue
Block a user