IntenseFinance/gnucash
3
0 Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2026-11-03 12:50:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

[options] Fix two deprecation messages.

Browse Source
This commit is contained in:
John Ralls committed 2022-08-06 16:25:42 -07:00
1 parent 0213787a2f
commit 418bb7d0cc
1 file changed
+1 -2
Download Patch File Download Diff File Expand all files Collapse all files
bindings/guile/options.scm
+1 -2
View File
@@ -226,7 +226,7 @@
(let ((defval (if default (default) '())))
(gnc-make-account-sel-limited-option section name key docstring defval '())))
(define-public (gnc:make-multichoice-option section name key docstring default multichoice)
(issue-deprecation-warning "gnc:make-multichoice-option is deprecated. Make and register the option in one command with gnc-register-multichoice-option.")
(issue-deprecation-warning "gnc:make-multichoice-option is deprecated. Make and register the option in one command with gnc:register-multichoice-option.")
(let ((defval (cond ((symbol? default)
(symbol->string default))
((number? default)
@@ -339,7 +339,6 @@
;; because we need to transform the default argument first depending on its
;; Scheme type.
(define-public (gnc:register-multichoice-option options section name key docstring default multichoice)
(issue-deprecation-warning "gnc:make-multichoice-option is deprecated. Make and register the option in one command with gnc-register-multichoice-option.")
(let ((defval (cond ((symbol? default)
(symbol->string default))
((number? default)