From b4edce8281bfc09405a53782bc74460f05512f70 Mon Sep 17 00:00:00 2001 From: Derek Atkins Date: Sat, 5 Apr 2003 04:18:21 +0000 Subject: [PATCH] * src/report/standard-report/transactions.scm: symbols are not strings in guile-1.6. Fixes debian bug #186004. * doc/gnucash.1.in: it's --add-price-quotes (not quote) * src/app-utils/date-utilities.scm: fix "WeekDelta" and add TwoWeekDelta. Fixes debian #185860. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@8184 57a11ea4-9604-0410-9ed3-97b8803252fd --- ChangeLog | 8 ++++++++ doc/gnucash.1.in | 2 +- src/app-utils/date-utilities.scm | 3 ++- src/report/standard-reports/transaction.scm | 4 ++-- 4 files changed, 13 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 4bce370217..12aab52564 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +2003-04-04 Derek Atkins + + * src/report/standard-report/transactions.scm: symbols are not + strings in guile-1.6. Fixes debian bug #186004. + * doc/gnucash.1.in: it's --add-price-quotes (not quote) + * src/app-utils/date-utilities.scm: fix "WeekDelta" and add + TwoWeekDelta. Fixes debian #185860. + 2003-04-03 Derek Atkins * src/scm/main.scm: guile-1.6 requires empty lists to be quoted diff --git a/doc/gnucash.1.in b/doc/gnucash.1.in index 9f86f2033c..8191a21467 100644 --- a/doc/gnucash.1.in +++ b/doc/gnucash.1.in @@ -47,7 +47,7 @@ Set the search path for documentation files Evaluate the guile command .IP --load FILE Load the given .scm file -.IP --add-price-quote FILE +.IP --add-price-quotes FILE Add price quotes to the given data file .IP --load-user-config Load the user configuration diff --git a/src/app-utils/date-utilities.scm b/src/app-utils/date-utilities.scm index be8d39fc72..6198f2d7a6 100644 --- a/src/app-utils/date-utilities.scm +++ b/src/app-utils/date-utilities.scm @@ -299,7 +299,8 @@ (define deltalist (list (cons 'SecDelta SecDelta) (cons 'DayDelta DayDelta) - (cons 'WeejDelta WeekDelta) + (cons 'WeekDelta WeekDelta) + (cons 'TwoWeekDelta TwoWeekDelta) (cons 'MonthDelta MonthDelta) (cons 'QuarterDelta QuarterDelta) (cons 'HalfYearDelta HalfYearDelta) diff --git a/src/report/standard-reports/transaction.scm b/src/report/standard-reports/transaction.scm index 9f1f074394..b6546c64e0 100644 --- a/src/report/standard-reports/transaction.scm +++ b/src/report/standard-reports/transaction.scm @@ -1142,7 +1142,7 @@ Credit Card, and Income accounts"))))) ;;This should probably a cond or a case to allow for different filter types. ;;(gnc:warn "Filter Mode: " filter-mode) - (if (string=? filter-mode "include") + (if (eq? filter-mode 'include) (begin ;;(gnc:warn "Including Filter Accounts") (set! splits (filter (lambda (split) @@ -1151,7 +1151,7 @@ Credit Card, and Income accounts"))))) ) ) - (if (string=? filter-mode "exclude") + (if (eq? filter-mode 'exclude) (begin ;;(gnc:warn "Excluding Filter Accounts") (set! splits (filter (lambda (split)