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

[Brian]

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>