Why I haven't released yet

[Andreas Köhler]

Hi,

Am Sonntag, den 12.11.2006, 15:47 +0100 schrieb Andreas Rottmann:
> Hi!
> 
> I haven't done a G-Wrap release yet, since G-Wrap HEAD breaks gnucash
> with a strange error:
> 
> Backtrace:
> In unknown file:
>    ?: 49* [save-module-excursion #<procedure #f ()>]
>    ?: 50  (let (# #) (dynamic-wind # thunk #))
>    ?: 51  [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f ()>]
>    ?: 52* [#<procedure #f ()>]
>    ?: 53* [primitive-load "/usr/share/gnucash/guile-modules/gnucash/report/account-p$
> In /usr/share/gnucash/guile-modules/gnucash/report/account-piecharts.scm:
>  460: 54* [for-each #<procedure #f (l)> (# # # #)]
> In unknown file:
>    ?: 55  (if (null? rest) (letrec ((lp #)) (lp list1)) ...)
>     ...
>    ?: 56  (begin (f (car l)) (lp (cdr l)))
>    ?: 57* [#<procedure #f (l)> ("Income Accounts" (income) #t ...)]
> In /usr/share/gnucash/guile-modules/gnucash/report/account-piecharts.scm:
>  462: 58  (let ((tip-and-rev (cddddr l))) (gnc:define-report (quote version) 1 ...))
> In /usr/share/gnucash/scm/report.scm:
>     ...
>   92: 59  (let ((report-rec #)) (if (and report-rec #) (let* # #) ...))
>   92: 60* [args-to-defn #f (version 1 name ...)]
>   81: 61  (let ((report-rec #)) (if (null? args) in-report-rec (let # # #)))
>   81: 62* (if in-report-rec in-report-rec (blank-report))
>   83: 63  [blank-report]
>   65: 64  ((record-constructor <report-template>) #f #f #f #f #f #f #t #f ...)
>   65: 65* [rec-constructor #<record-type <report-template>>]
> In /usr/share/slib/record.scm:
>  131: 66* (if (not #) (slib:error # "illegal rtd argument." rtd))
>  132: 67  [error record-constructor "illegal rtd argument." ...]
> In unknown file:
>     ...
>    ?: 68  [scm-error misc-error #f ...]
> 
> <unnamed port>: In procedure scm-error in expression (scm-error (quote misc-error) #f ...):
> <unnamed port>: record-constructor "illegal rtd argument." #<record-type <report-template>>
> 
> I'd appreciate any hints, as I have no idea why this happens.

are you sure this is due to g-wrap? This happens on trunk too, see

http://bugzilla.gnome.org/show_bug.cgi?id=373809
http://lists.gnucash.org/pipermail/gnucash-user/2006-November/018142.html

My fix is to add
(use-modules (ice-9 slib))
(require 'record)

to src/report/report-system/html-style-sheet.scm and
src/report/report-system/report.scm

But then I get a weird error about sort, make-array, apply:nconc2last...
i did not understand that one and finally downgraded slib again.

-- andi5

PS: Here it is:
In current input:
   1:  0* [gnc:report-menu-setup]
   ?:  1  (letrec (# # # ...) (gnc-add-scm-extension
income-expense-menu) ...)
In /home/ak47/Software/GnuCash/installs/Current/share/gnucash/guile-modules/gnucash/report/report-gnome.scm:
 120:  2* [gnc:add-report-template-menu-items]
In unknown file:
   ?:  3  (letrec (# # # ...) (gnc:report-templates-for-each
add-template) ...)
In /home/ak47/Software/GnuCash/installs/Current/share/gnucash/guile-modules/gnucash/report/report-gnome.scm:
  93:  4  [for-each #<procedure #f (item)> ...
  96:  5*  [sort (# # # # ...) #<procedure sort-templates (a b)>]
In /usr/share/slib/sort.scm:
 172:  6   (cond ((array? seq) (let # #)) (#t (sort:sort! # less?)))
In unknown file:
     ...
   ?:  7   (letrec ((newra #)) (do (# #) (# newra) (array-set! newra #
i)))
In /usr/share/slib/sort.scm:
 174:  8*  [apply #<procedure create-array (prot . args)> (# # # # ...)
#f]
In unknown file:
   ?:  9   [create-array ...
   ?: 10*   [apply:nconc2last ((# # # # ...) #f)]

<unnamed port>: In procedure apply:nconc2last in expression
(apply:nconc2last args):
<unnamed port>: Wrong type argument in position 1: ((("Sample Report
with Examples" . #(#((rtd) "<report-template>" () [... ... ...]