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>" () [... ... ...]
_______________________________________________
gnucash-devel mailing list
gnucash-devel@gnucash.org
https://lists.gnucash.org/mailman/listinfo/gnucash-devel
