IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Reporting: Prevent GnuCash from crashing if a report's option generating procedure causes a Scheme exception. Also fix a typo of "names" vs. "namer".

Browse Source 
BP


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@17178 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Charles Day
2008-05-28 15:47:49 +00:00
parent bcd5574d9a
commit b9a3f6a81f
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/report/report-system/report.scm
View File

@@ -1,5 +1,5 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; report.scm : structures/utilities for representing reports
;; rport.scm : structures/utilities for representing reports
;; Copyright 2000 Bill Gribble <grib@gnumatic.com>
;;
;; This program is free software; you can redistribute it and/or
@@ -253,13 +253,19 @@
(gnc:get-html-style-sheets)))))
(if (procedure? generator)
(let ((options (generator)))
(let ((options (gnc:backtrace-if-exception generator)))
(if (not options)
(begin
(gnc:warn "BUG DETECTED: Scheme exception raised in "
"report options generator procedure named "
(procedure-name generator))
(set! options (gnc:new-options))))
(gnc:register-option options stylesheet)
(gnc:register-option options namer)
options)
(let ((options (gnc:new-options)))
(gnc:register-option options stylesheet)
(gnc:register-option options names)
(gnc:register-option options namer)
options))))
;; A <report> represents an instantiation of a particular report type.