possible bug report

[John Griessen]

Hello,

I have a repeatable situation where I can restore a saved-reports-1.8 file, and 
recreate a fnacy printable invoice of the same name and get back to crashing 
when asking for a printable report.


Interested in me sending more details?




John Griessen

Here is saved-reports-1.8:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Options for saved report "Printable Invoice", based on template "Printable 
Invoice"
(let ()
  (define (options-gen)
   (let ((options (gnc:report-template-new-options/name "Printable Invoice")))

; Section: Display Columns


; Section: Display


; Section: General

(let ((option (gnc:lookup-option options
                                  "General"
                                  "Invoice Number")))
   ((lambda (option) (if option ((gnc:option-setter option) 
'"1fec538f0d11d26b1f446b121d0c3895"))) option))

(let ((option (gnc:lookup-option options
                                  "General"
                                  "Stylesheet")))
   ((lambda (option) (if option ((gnc:option-setter option) 
'project-doneinvoice))) option))

   options))
  (gnc:define-report
   'version 1
   'name "Printable Invoice"
   'options-generator options-gen
   'menu-path (list gnc:menuname-custom)
   'renderer (gnc:report-template-renderer/name "Printable Invoice")))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Options for saved report "Printable Invoice", based on template "Printable 
Invoice"
(let ()
  (define (options-gen)
   (let ((options (gnc:report-template-new-options/name "Printable Invoice")))

; Section: Display Columns


; Section: Display


; Section: General

(let ((option (gnc:lookup-option options
                                  "General"
                                  "Invoice Number")))
   ((lambda (option) (if option ((gnc:option-setter option) 
'"1fec538f0d11d26b1f446b121d0c3895"))) option))

(let ((option (gnc:lookup-option options
                                  "General"
                                  "Stylesheet")))
   ((lambda (option) (if option ((gnc:option-setter option) 
'project-doneinvoice))) option))

   options))
  (gnc:define-report
   'version 1
   'name "Printable Invoice"
   'options-generator options-gen
   'menu-path (list gnc:menuname-custom)
   'renderer (gnc:report-template-renderer/name "Printable Invoice")))

============================================
Here is the crash output when asking for a printable invoice report:
============================================


john at toolbench:~/chronofile-jg-docs$ gnucash project-done.gnucash
Warning: taxtable_reset_refcount: Fixing refcount on taxtable 
2149722e0643a4526f6c5b032d15a4b4 (2 -> 1)

gnucash: [W] "failure loading 
""/home/john/.gnucash/books/%2Fhome%2Fjohn%2Fchronofile-jg-docs%2Fproject-done.gnucash"
Backtrace:
In /usr/share/gnucash/scm/report.scm:
        ...
  167: 83264  (let ((options #)) (gnc:register-option options stylesheet) ...)
  167: 83265* [options-gen]
In /home/john/.gnucash/saved-reports-1.8:
   37: 83266  (let ((options #)) (let (#) (# option)) (let (#) (# option)) ...)
   37: 83267* [gnc:report-template-new-options/name "Printable Invoice"]
In /usr/share/gnucash/scm/report.scm:
  127: 83268  (let ((templ #)) (if templ (gnc:report-template-new-options templ) 
#f))
In unknown file:
        ...
    ?: 83269  [gnc:report-template-new-options #]
In /usr/share/gnucash/scm/report.scm:
  146: 83270  (let (# # #) (if # # #))
  153: 83271* [gnc:make-multichoice-option "General" "Stylesheet" ... ...
  157: 83272* [map #<procedure #f (ss)> ...
  164: 83273* [gnc:get-html-style-sheets]
In /usr/share/gnucash/scm/html-style-sheet.scm:
  271: 83274  (let ((ss #)) (hash-for-each (lambda # #) *gnc:_style-sheets_*) ...)
  274: 83275  [sort (# # #) #<procedure #f (a b)>]
In unknown file:
    ?: 83276* [#<procedure #f #> # #]
In /usr/share/gnucash/scm/html-style-sheet.scm:
  276: 83277* [string<? ...
  276: 83278* [gnc:html-style-sheet-name #]
In unknown file:
    ?: 83279  (and (eq? (quote #) (record-type-descriptor obj)) (struct-ref obj 0))
    ?: 83280* [eq? #<record-type <html-style-sheet>> ...
    ?: 83281* [record-type-descriptor #]
    ?: 83282  (if (struct? obj) (struct-vtable obj) (error (quote not-a-record) 
obj))
    ?: 83283* (struct? obj)

<unnamed port>: In expression (struct? obj):
<unnamed port>: Stack overflow