* 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
This commit is contained in:
Derek Atkins 2003-04-05 04:18:21 +00:00
parent 20b18eff5c
commit b4edce8281
4 changed files with 13 additions and 4 deletions

View File

@ -1,3 +1,11 @@
2003-04-04 Derek Atkins <derek@ihtfp.com>
* 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 <derek@ihtfp.com> 2003-04-03 Derek Atkins <derek@ihtfp.com>
* src/scm/main.scm: guile-1.6 requires empty lists to be quoted * src/scm/main.scm: guile-1.6 requires empty lists to be quoted

View File

@ -47,7 +47,7 @@ Set the search path for documentation files
Evaluate the guile command Evaluate the guile command
.IP --load FILE .IP --load FILE
Load the given .scm file Load the given .scm file
.IP --add-price-quote FILE .IP --add-price-quotes FILE
Add price quotes to the given data file Add price quotes to the given data file
.IP --load-user-config .IP --load-user-config
Load the user configuration Load the user configuration

View File

@ -299,7 +299,8 @@
(define deltalist (define deltalist
(list (cons 'SecDelta SecDelta) (list (cons 'SecDelta SecDelta)
(cons 'DayDelta DayDelta) (cons 'DayDelta DayDelta)
(cons 'WeejDelta WeekDelta) (cons 'WeekDelta WeekDelta)
(cons 'TwoWeekDelta TwoWeekDelta)
(cons 'MonthDelta MonthDelta) (cons 'MonthDelta MonthDelta)
(cons 'QuarterDelta QuarterDelta) (cons 'QuarterDelta QuarterDelta)
(cons 'HalfYearDelta HalfYearDelta) (cons 'HalfYearDelta HalfYearDelta)

View File

@ -1142,7 +1142,7 @@ Credit Card, and Income accounts")))))
;;This should probably a cond or a case to allow for different filter types. ;;This should probably a cond or a case to allow for different filter types.
;;(gnc:warn "Filter Mode: " filter-mode) ;;(gnc:warn "Filter Mode: " filter-mode)
(if (string=? filter-mode "include") (if (eq? filter-mode 'include)
(begin (begin
;;(gnc:warn "Including Filter Accounts") ;;(gnc:warn "Including Filter Accounts")
(set! splits (filter (lambda (split) (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 (begin
;;(gnc:warn "Excluding Filter Accounts") ;;(gnc:warn "Excluding Filter Accounts")
(set! splits (filter (lambda (split) (set! splits (filter (lambda (split)