#!%&*#@ scheme! ... help!

Derek Atkins warlord at MIT.EDU
Sun Nov 27 12:15:06 EST 2005


Well, gnc:*business-label* isn't a procedure, so of course that's not
going to work.  I'd tell you "just remove the parens" but that wont do
what you expect, either.  It wont crash, but it wont give you the output
you want.  You need (gnc:<whatever-function-gets-the-value> <label> <item>)
to grab the option info.

-derek

Quoting Brian <dol-sen at telus.net>:

> On Sun, 2005-27-11 at 11:36 -0500, Derek Atkins wrote:
>> guile> (string-append "foo" "bar" "baz")
>> "foobarbaz"
>>
>> You don't want the (list ...) stuff in there.
>>
>> -derek
>>
> thanks, but :(
>
>     (string-append (N_ "Make all cheques payable to: ") 
> (gnc:*business-label* gnc:*company-name*)
>      (N_ "\nDirect all inquiries to: ") (gnc:*business-label* 
> gnc:*company-contact*))))
>
>
> Backtrace:
> In unknown file:
>   ?:  0* [#<procedure #f (window)> #<gw:wcp <gnc:MainWindow*> 0x8409990>]
> In /opt/gnucash2/share/guile-modules/gnucash/report/report-gnome.scm:
>  78:  1* (let ((report #)) (gnc:main-window-open-report report window))
>  78:  2* [gnc:make-report "Fancy Invoice"]
> In /opt/gnucash2/share/scm/report.scm:
> 237:  3  (let (# # #) (gnc:report-set-id! r id) ...)
> 250:  4* (let ((options (if # # ...))) (gnc:report-set-options! r 
> options) ...)
> 251:  5* (if (not (null? rest)) (car rest) ...)
> 253:  6  [gnc:report-template-new-options #]
>    ...
> 169:  7  (let ((options (generator))) (gnc:register-option options 
> stylesheet) ...)
> 169:  8* [options-generator]
> In unknown file:
>   ?:  9  (letrec (# #) (gnc:register-inv-option #) 
> (gnc:register-inv-option #) ...)
> In /opt/gnucash2/share/guile-modules/gnucash/report/fancy-invoice.scm:
> 333: 10* [gnc:register-inv-option ...
> 334: 11*  [gnc:make-text-option "Display" "Extra Notes" ... ...
> 339: 12*   [string-append "Make all cheques payable to: " ...
> 339: 13*    ["Business" "Company Name"]
>
> /opt/gnucash2/share/guile-modules/gnucash/report/fancy-invoice.scm:339:58: 
> In expression (gnc:*business-label* gnc:*company-name*):
> /opt/gnucash2/share/guile-modules/gnucash/report/fancy-invoice.scm:339:58: 
> Wrong type to apply: "Business"
> brian at big_squirt ~/gnucash-svn/trunk $
>
>
> --
> Brian <dol-sen at telus.net>
>
>



-- 
       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



More information about the gnucash-devel mailing list