[Patch] reworked advanced-portfolio.scm

[Derek Atkins]

This should have gone back to the list so Andrew can see it.

-derek

Quoting Eildert Groeneveld <Eildert.Groeneveld at fal.de>:

> Derek
>
> not much luck I am afraid. patch make make install all wentrthrough nicely.
> But this is the result:
>
> Anything else I could do?
>
> greetings
> Eildert
>
>
>
>
> ;;; WARNING (wrong arguments for gnc:make-gnc-monetary:  #f #<<gnc-numeric>
> num: -736000 denom: 100>)
> In 
> /usr/local/share/gnucash/guile-modules/gnucash/report/advanced-portfolio.scm:
>    ...
> 186: 51  (let* (# # # # ...) (if price-is-dirty #) (for-each # #) ...)
> 315: 52* (if (or include-empty (not #)) (let* (# # # ...) (if # #) ...) ...)
> 316: 53  (let* (# # # #) (if # #) (if show-symbol #) ...)
> 316: 54* [gnc:monetary-neg ...
> 317: 55*  [gnc:sum-collector-commodity #<procedure #f #> # #<procedure #f #>]
> In /usr/local/share/gnucash/scm/commodity-utilities.scm:
> 885: 56   (cond ((and foreign exchange-fn) (let (#) (foreign # # ...) ...))
> (#t #f))
> 886: 57   (let ((balance #)) (foreign (quote format) (lambda # #) ...) ...)
> 887: 58*  [#<procedure #f #> format #<procedure #f #> #f]
> In /usr/local/share/gnucash/scm/report-utilities.scm:
> 448: 59   (case action ((quote add) (add-commodity-value commodity
> amount)) ...)
>     ...
> 414: 60   [map #<procedure #f (pair)> ((#f #<procedure #f (action amount)>))]
> In unknown file:
>   ?: 61*  [#<procedure #f (pair)> (#f #<procedure #f (action amount)>)]
> In /usr/local/share/gnucash/scm/report-utilities.scm:
> 415: 62*  [#<procedure #f (curr val)> #f #<<gnc-numeric> num: -736000 denom:
> 100>]
> In /usr/local/share/gnucash/scm/commodity-utilities.scm:
> 890: 63   (if (gnc:commodity-equiv? domestic curr) (balance #
> domestic ...) ...)
> 892: 64   [#<procedure #f #> add # ...
> 893: 65*   [gnc:gnc-monetary-amount #f]
> In unknown file:
>   ?: 66    (and (eq? (quote #) (record-type-descriptor obj)) (struct-ref obj
> 1))
>   ?: 67*   [eq? #<record-type <gnc-monetary>> ...
>   ?: 68*    [record-type-descriptor #f]
>   ?: 69     (if (struct? obj) (struct-vtable obj) (error (quote not-a-record)
> obj))
>       ...
>   ?: 70     [scm-error misc-error #f "~A ~S" (not-a-record #f) #f]
> <unnamed port>: In procedure scm-error in expression (scm-error (quote
> misc-error) #f ...):
> <unnamed port>: not-a-record #f
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>>
>> Thanks!
>>
>> -derek
>>
>> Quoting Eildert Groeneveld <Eildert.Groeneveld at fal.de>:
>> > Andrew
>> >
>> > just wondering: did the patch make it into svn?
>> >
>> > cause if it did it did not solve my problem:
>> >
>> >
>> >
>> >
>> > ;;; WARNING (wrong arguments for gnc:make-gnc-monetary:  #f
>> > #<<gnc-numeric> num: -736000 denom: 100>)
>> > In
>> > /usr/local/share/gnucash/guile-modules/gnucash/report/advanced-portfolio.
>> >scm: ...
>> > 184: 51  (let* (# # # # ...) (for-each # #) (moneyincoll # dividendcoll
>> > #f) ...)
>> > 275: 52* (if (or include-empty #) (let # # ...) ...)
>> > 276: 53  (let (# # # #) (total-value # # #) (total-moneyin # moneyincoll
>> > #f) ...)
>> > 276: 54* [gnc:monetary-neg ...
>> > 277: 55*  [gnc:sum-collector-commodity #<procedure #f #> # #<procedure #f
>> > #>] In /usr/local/share/gnucash/scm/commodity-utilities.scm:
>> > 885: 56   (cond ((and foreign exchange-fn) (let (#) (foreign # # ...)
>> > ...)) (#t #f))
>> > 886: 57   (let ((balance #)) (foreign (quote format) (lambda # #) ...)
>> > ...) 887: 58*  [#<procedure #f #> format #<procedure #f #> #f]
>> > In /usr/local/share/gnucash/scm/report-utilities.scm:
>> > 448: 59   (case action ((quote add) (add-commodity-value commodity
>> > amount)) ...)
>> >     ...
>> > 414: 60   [map #<procedure #f (pair)> ((#f #<procedure #f (action
>> > amount)>))] In unknown file:
>> >   ?: 61*  [#<procedure #f (pair)> (#f #<procedure #f (action amount)>)]
>> > In /usr/local/share/gnucash/scm/report-utilities.scm:
>> > 415: 62*  [#<procedure #f (curr val)> #f #<<gnc-numeric> num: -736000
>> > denom: 100>]
>> > In /usr/local/share/gnucash/scm/commodity-utilities.scm:
>> > 890: 63   (if (gnc:commodity-equiv? domestic curr) (balance #
>> > domestic ...) ...)
>> > 892: 64   [#<procedure #f #> add # ...
>> > 893: 65*   [gnc:gnc-monetary-amount #f]
>> > In unknown file:
>> >   ?: 66    (and (eq? (quote #) (record-type-descriptor obj)) (struct-ref
>> > obj 1))
>> >   ?: 67*   [eq? #<record-type <gnc-monetary>> ...
>> >   ?: 68*    [record-type-descriptor #f]
>> >   ?: 69     (if (struct? obj) (struct-vtable obj) (error (quote
>> > not-a-record) obj))
>> >       ...
>> >   ?: 70     [scm-error misc-error #f "~A ~S" (not-a-record #f) #f]
>> > <unnamed port>: In procedure scm-error in expression (scm-error (quote
>> > misc-error) #f ...):
>> > <unnamed port>: not-a-record #f
>



-- 
       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
       warlord at MIT.EDU                        PGP key available