Yeah, I'm pretty sure the problem here is slib, not g-wrap.
slib-3a3 is known to work. Version 3a2 is known to be broken.
Version 3a4 appears to have problems.
-derek
Quoting Andreas Köhler <[EMAIL PROTECTED]>:
> 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
>
--
Derek Atkins, SB '93 MIT EE, SM '95 MIT Media Laboratory
Member, MIT Student Information Processing Board (SIPB)
URL: http://web.mit.edu/warlord/ PP-ASEL-IA N1NWH
[EMAIL PROTECTED] PGP key available
_______________________________________________
gnucash-devel mailing list
gnucash-devel@gnucash.org
https://lists.gnucash.org/mailman/listinfo/gnucash-devel
