Build error

$ ninja-build
[9/9] Generating ../../../lib64/guile/2.2/site-ccache/gnucash/reports/standard/new-owner-report.go
FAILED: lib64/guile/2.2/site-ccache/gnucash/reports/standard/new-owner-report.go
cd /home/janssege/Development/builds/gnucash/maint/gnucash/report/reports && /usr/bin/cmake -E env LD_LIBRARY_PATH=/home/janssege/Development/builds/gnucash/maint/lib64:/home/janssege/Development/builds/gnucash/maint/lib64/gnucash:/home/janssege/Development/installs/webkit1/lib GNC_UNINSTALLED=YES GNC_BUILDDIR=/home/janssege/Development/builds/gnucash/maint GUILE_LOAD_PATH=/home/janssege/Development/gnucash/maint/gnucash/report/reports:/home/janssege/Development/builds/gnucash/maint/gnucash/report/reports:/home/janssege/Development/builds/gnucash/maint/gnucash/report/reports/deprecated:/home/janssege/Development/builds/gnucash/maint/share/guile/site/2.2 GUILE_LOAD_COMPILED_PATH=/home/janssege/Development/builds/gnucash/maint/gnucash/report/reports:/home/janssege/Development/builds/gnucash/maint/lib64/guile/2.2/site-ccache:/home/janssege/Development/builds/gnucash/maint/lib64/guile/2.2/site-ccache/gnucash/deprecated GNC_MODULE_PATH=/home/janssege/Development/builds/gnucash/maint/lib64:/home/janssege/Development/builds/gnucash/maint/lib64/gnucash: /usr/bin/guile2.2 -e "(@@ (guild) main)" -s /usr/bin/guild2.2 compile -o /home/janssege/Development/builds/gnucash/maint/lib64/guile/2.2/site-ccache/gnucash/reports/standard/new-owner-report.go /home/janssege/Development/gnucash/maint/gnucash/report/reports/standard/new-owner-report.scm
ice-9/boot-9.scm:752:25: In procedure dispatch-exception:
Syntax error:
standard/new-owner-report.scm:467:0: no expressions in body in form (lambda (table splits acc start-date end-date date-type used-columns payable? link-option) (define (AP-negate num) (if payable? (- num) num)) (define currency (xaccAccountGetCommodity acc)) (define rhs-cols (assq-ref (quasiquote ((none . 0) (simple . 1) (detailed unquote (num-cols used-columns (quote rhs-cols))))) link-option)) (define mid-span (if (eq? link-option (quote detailed)) (num-cols used-columns (quote mid-spac)) 0)) (define (split->anchor split negate?) (gnc:html-markup-anchor (gnc:split-anchor-text split) (gnc:make-gnc-monetary (xaccAccountGetCommodity (xaccSplitGetAccount split)) ((if negate? - +) (AP-negate (xaccSplitGetAmount split)))))) (define (print-totals total debit credit tax sale invalid-splits) (define (total-cell cell) (gnc:make-html-table-cell/markup "total-number-cell" cell)) (define (make-cell amt) (total-cell (gnc:make-gnc-monetary currency amt))) (define period-span (num-cols used-columns (quote ptt-span))) (define grand-span (num-cols used-columns (quote lhs-cols))) (if (or (sale-col used-columns) (tax-col used-columns) (credit-col used-columns) (debit-col used-columns)) (gnc:html-table-append-row/markup! table "grand-total" (append (addif (< 0 period-span) (gnc:make-html-table-cell/markup "total-label-cell" (G_ "Period Totals"))) (addif (< 1 period-span) (gnc:make-html-table-cell/size 1 (#{1-}# period-span) #f)) (addif (sale-col used-columns) (make-cell sale)) (addif (tax-col used-columns) (make-cell tax)) (addif (debit-col used-columns) (make-cell debit)) (addif (credit-col used-columns) (make-cell credit)) (addif (bal-col used-columns) (make-cell total)) (addif (< 0 rhs-cols) (gnc:make-html-table-cell/size 1 (+ mid-span rhs-cols) #f))))) (if (bal-col used-columns) (gnc:html-table-append-row/markup! table "grand-total" (append (addif (< 1 grand-span) (gnc:make-html-table-cell/markup "total-label-cell" (if (negative? total) (G_ "Total Credit") (G_ "Total Due")))) (addif (< 1 grand-span) (gnc:make-html-table-cell/size/markup 1 (#{1-}# grand-span) "total-number-cell" (gnc:make-gnc-monetary currency total))) (addif (< 0 rhs-cols) (gnc:make-html-table-cell/size 1 (+ mid-span rhs-cols) #f))))) (unless (null? invalid-splits) (gnc:html-table-append-row/markup! table "grand-total" (list (gnc:make-html-table-cell/size 1 (+ grand-span mid-span rhs-cols) (gnc:make-html-text (G_ "Please note some transactions were not processed") (gnc:html-markup-ol (map (match-lambda ((split txt) (gnc:html-markup-anchor (gnc:split-anchor-text split) txt))) invalid-splits))))))) (gnc:html-table-append-row/markup! table "grand-total" (list (gnc:make-html-table-cell/size 1 (+ grand-span mid-span rhs-cols) (make-aging-table splits end-date payable? date-type currency))))) (define (add-balance-row odd-row? total) (add-row table odd-row? used-columns start-date #f "" (G_ "Balance") "" #f currency total #f #f #f #f #f link-option (case link-option ((none) (quote (()))) ((simple) (quote ((#f)))) ((detailed) (list (make-link-blank)))))) (define (make-invoice->payments-table invoice) (let ((lot (gncInvoiceGetPostedLot invoice))) (let lp ((lot-splits (gnc-lot-get-split-list lot)) (result (quote ()))) (cond ((null? lot-splits) (reverse (if (gncInvoiceIsPaid invoice) result (cons (make-link-desc-amount (G_ "UNPAID") (gnc:make-gnc-monetary currency (AP-negate (gnc-lot-get-balance lot))) (gncInvoiceReturnGUID invoice)) result)))) ((equal? (xaccSplitGetParent (car lot-splits)) (gncInvoiceGetPostedTxn invoice)) (lp (cdr lot-splits) result)) (else (let* ((lot-split (car lot-splits)) (lot-txn (xaccSplitGetParent lot-split))) (let lp1 ((lot-txn-splits (xaccTransGetSplitList lot-txn)) (non-document (quote ())) (result result)) (cond ((null? lot-txn-splits) (lp (cdr lot-splits) (if (null? non-document) result (cons (make-link-data (qof-print-date (xaccTransGetDate lot-txn)) (split->reference lot-split) (split->type-str lot-split payable?) (splits->desc non-document) (gnc:make-html-text (split->anchor lot-split #f)) (list->cell (map (lambda (s) (split->anchor s #t)) non-document)) (gncTransGetGUID lot-txn)) result)))) ((sign-equal? (xaccSplitGetAmount (car lot-txn-splits)) (xaccSplitGetAmount lot-split)) (lp1 (cdr lot-txn-splits) non-document result)) ((lot-split->posting-split (car lot-txn-splits)) => (lambda (posting-split) (let* ((lot-txn-split (car lot-txn-splits)) (posting-txn (xaccSplitGetParent posting-split)) (document (gncInvoiceGetInvoiceFromTxn posting-txn))) (lp1 (cdr lot-txn-splits) non-document (cons (make-link-data (qof-print-date (xaccTransGetDate posting-txn)) (split->reference posting-split) (split->type-str posting-split payable?) (splits->desc (list posting-split)) (gnc:make-html-text (split->anchor lot-split #f)) (gnc:make-html-text (split->anchor posting-split #f)) (gncInvoiceReturnGUID document)) result))))) (else (lp1 (cdr lot-txn-splits) (cons (car lot-txn-splits) non-document) result)))))))))) (define (payment-txn->payment-info txn) (let lp ((splits (xaccTransGetAPARAcctSplitList txn #f)) (invoices (quote ())) (opposing-splits (quote ()))) (match splits (() (make-payment-info invoices opposing-splits)) ((split . rest) (let ((lot (xaccSplitGetLot split))) (define (equal-to-split? s) (equal? s split)) (match (gncInvoiceGetInvoiceFromLot lot) (() (let lp1 ((lot-splits (gnc-lot-get-split-list lot)) (opposing-splits opposing-splits)) (match lot-splits (() (lp rest invoices opposing-splits)) (((? equal-to-split?) . tail) (lp1 tail opposing-splits)) ((head . tail) (lp1 tail (cons head opposing-splits)))))) (inv (lp rest (cons (cons inv split) invoices) opposing-splits)))))))) (define (make-payment->invoices-list txn) (list (list (apply gnc:make-html-text (map (lambda (inv-split-pair) (invoice->anchor (car inv-split-pair))) (payment-info-invoices (payment-txn->payment-info txn))))))) (define (make-payment->payee-table txn) (define payment-info (payment-txn->payment-info txn)) (define invoices-list (let lp ((invoice-split-pairs (payment-info-invoices payment-info)) (result (quote ()))) (match invoice-split-pairs (() result) (((inv . APAR-split) . rest) (let* ((posting-split (lot-split->posting-split APAR-split))) (lp rest (cons (make-link-data (qof-print-date (gncInvoiceGetDatePosted inv)) (gnc:make-html-text (invoice->anchor inv)) (gncInvoiceGetTypeString inv) (splits->desc (list APAR-split)) (gnc:make-html-text (split->anchor APAR-split #t)) (gnc:make-html-text (split->anchor posting-split #f)) (gncInvoiceReturnGUID inv)) result))))))) <<<<<<< HEAD ======= >>>>>>> #{106fd8e85643ee53cf9b70dffe15ff7d936903e4}# (define payments-list (let lp1 ((opposing-splits (payment-info-opposing-splits payment-info)) (pmt-list (quote ())) (overpayment 0)) (match opposing-splits (() (reverse (if (zero? overpayment) pmt-list (cons (make-link-desc-amount (G_ "Pre-Payment") <<<<<<< HEAD (gnc:make-html-text overpayment) ======= (gnc:make-html-text (gnc:monetary->string (gnc:make-gnc-monetary currency overpayment))) >>>>>>> #{106fd8e85643ee53cf9b70dffe15ff7d936903e4}# (gncTransGetGUID txn)) pmt-list)))) ((s . rest) (let* ((lot (xaccSplitGetLot s)) (sum (fold (lambda (a b) (if (equal? s a) b (+ b (xaccSplitGetAmount a)))) 0 (gnc-lot-get-split-list lot))) (lot-bal (gnc-lot-get-balance lot)) (lot-bal (if (sign-equal? lot-bal (xaccSplitGetAmount s)) 0 lot-bal)) (paid? (zero? lot-bal))) (lp1 rest (cons (make-link-data (qof-print-date (xaccTransGetDate (xaccSplitGetParent s))) (split->reference s) (split->type-str s payable?) (splits->desc (list s)) (gnc:make-html-text (gnc:html-markup-anchor (gnc:split-anchor-text s) ((if paid? identity gnc:html-markup-b) (gnc:monetary->string <<<<<<< HEAD (gnc:make-gnc-monetary (xaccAccountGetCommodity (xaccSplitGetAccount s)) (- sum lot-bal)))))) ======= (gnc:make-gnc-monetary currency (- sum lot-bal)))))) >>>>>>> #{106fd8e85643ee53cf9b70dffe15ff7d936903e4}# (gnc:make-html-text (split->anchor s #f)) (gncTransGetGUID (xaccSplitGetParent s))) pmt-list) (+ overpayment lot-bal)))))
ninja: build stopped: subcommand failed.